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0 
; : FACILITY: 
0 : RTPAD in CLIUTL 

> ABSTRACT: 
0 : This module contains all of the CTERM specific protocol needed 

; for running remote terminals. 

: ENVIRONMENT: 

| 
0 : | 
: ; AUTHOR: Jake VanNoy, CREATION DATE: 9-Sep-1982 
6 > MODIFIED BY: 
0 : v03-008 JLV0389 Jake VanNo 25-JUL-1984 
3} ; Add read status code for SS$_OPINCOMPL. 
00 ; v03-007 JLV0350 Jake VanNoy 10-APR-1984 
00 : Add setting of moredata flag in READ DATA if not VAX host. 
4 : Add code to give proper message for Known UNBINDs. 


H 7 
CTERMRT - CTERM remote terminal protocol module 16-SEP-1984 


Miscellanous bug fixes. 


] 
AX/VMS Macro V04-00 Page | 
v04-000 ~3Eb= 138s 08:44 RTPAD. SRCICTERMRT .MAR; 1 we 4, 
00 58; v03-006 JLV0332 Jake ne 28-FEB-1984 | 
8 ; Fix check that sets 108K BREAKTHRU if read is active. 
60 ; Change preveces in READ_BATA that returns cursor offset. 
p 1 : Honor discard output in out of band path. | 
8§ : v03-005 JLV0322 Jake VanNoy 10-JAN-1984 
00 64 ; Fix bu a. main Q10 error path. A privilege error 
00 65 ; on a SET MODE Q10 would hang the remote process 
00 66 3 because the I0SB coluraed was 0. Fixed by always | 
00 67 ; pyae ine Q10 status in AST IOSB block. 
00 68 ; bug in SET HOST/LOG that corrupts input logged. 
B98 $? ; Remove local macros definitions. | 
000 71: V03-004 JLV0314 Jake VanNoy 7=DEC-1983 
0000 if; : Change handling of “C normal echo. Use OOB_ECHO to 
0000 73 ; flag whether one has been requested, clear this 
4464 iS ; bit when ast is delivered. Fix bug in input logging. 
0000 76; v03-003 JLVv0292 Jake YanNoy 28-JUL-1983 
0000 3 Add INIT message parsing. Remove input state on startup. 
0000 78 ; Add message parameter 4 (VMS private) to INIT, this parameter 
0000 79 ; will be used to Ents characteristics. This cuts the startup 
0000 $ messages from 3 to 1. Add FLG$_x to SRTPADDEF. 
4 ; Add Set host/log code. Fix up out of band handling. 
0000 : V03-002 JLV0264 Jake VanNoy 26-MAY-1983 
44 3 Add VMS tag to bind accept. Fix write flag processing. 
: v03-001 yLvo237 Jake VanNoy 29-MAR-1983 


xk 


.SBTTL DECLARATIONS 
> INCLUDE FILES: 


bs 5 gd 3; offsets and misc defintions 
gna’ SUPPRESSION 

SMSGDEF ; mailbox message definitions 
SSSDEF ; system status codes 

STRMDEF : item List codes 

STTYDEFS ; Driver symbols 


00000026 ASTST_BUF = CTPSB_PRO_MSGTYPE ; *#* 


MACROS: 
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> EQUATED SYMBOLS: 
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CTERMRT - CTERM_ remote terminal protocol module 16-SEP-1984 02:09:13 VAX/VMS Macro V04-00 & 
v04-000 DECLARATIONS . oo een 1382 8g: 2:13 ERIPAD. SRe CTERMRT MAR: 1 a a 
115 
118 ; Parameters: | 
00000001 11 MIN_QUEUED_BUFS = ; Controls bufferi | 
90000003 900 113 MAX-QUEUED-BUFS = 3 : Controls buffering | 
3 ! 1 : ASSUME FLGSV_CTERM EQ 0 ; So BLB(S/C) can be done 
000 1 § : OWN STORAGE: 
a3 
00000000 1 § »PSECT _RTPAD,LONG ; Read/Write data 
$009 : 8 
44 129 : wee MESSAGES DEFINED HERE MUST BE READ-ONLY 7??? 
000 130; Or only sent once... 
0000 131; 
$3331 
44 ! : > Define INIT message 
0000 1 : CT_INIT_MSG: 
00000026 0000 13 -BLKB CTP$B_PRO_MSGTYPE ; AST header 
0009 0026 138 1$: -WORD PROSC"DATA 3; protocol type, no flags 
0018" 0028 139 -WORD 10$-5$ 3 message Length 
0001 Q02A 140 5$: «WORD CTPSC_MT_INIT ; INIT message, no flags 
01 O02C 141 -BYTE 1 3; version 1 
00 002d 136 BYTE 0 ; Eco 
00 BOSE 14 -BYTE ! 3; Customer mod 
0007 SH 144 - WORD ; VMS in revision field 
00000037 bos} 102 -BLKB 6 3; remainder of revision 
01 0037 147 Te. 7 : first 
02 0038 148 "BYTE 2 lim 
O3F si 133 «WORD maxmsg-CTPS$W_MSGSIZE 3 antes “write to me’’ size? 
02 0038 151 -BYTE 2 :s d t 
08 90s 152 "BYTE 3 im’ 
03C Ooee 137 «WORD maxmsg-CTP$T_SR_TERM-32 ; legal read size *** ? 
03 OO3F 155 -BYTE 3 ; Third parameter 
04 Boas 136 -BYTE 4 ; Length 
OOO3FFFE bes 13 108: eLONG “%B0111111111111111110 ; messages 1-17 
0000001F 043 139 CT_INIT_MSGLEN = .-1$ 
04 be 161 INIT_CHAR_STRT: .BYTE 4 ; Fourth parameter (VMS ONLY!) 
OC 9048 168 "BYTE 12 : Length | 
047 163 CT_INIT_CHAR: 
00000053 235 198 -BLKB 12 ; characteristics goes here 
0000000E 09 166 CT_INIT_CHAR_MSGLEN =.-INIT_CHAR_STRT 
} 
5 168 ; 
3 183 : Define a message that says ‘Unsolicited Input" 
005 171 CT_UNSDAT_MSG: : ; Set up unsolicited data message 


s 
discard and echo 
OUTBAND _NEW: : 
LONG 
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CTERMRT - CTERM remote termine. protccol module 16-SEP-1984 02:09:1 AX/VMS Macro V04-00 Page 4 
v04-000 DECLARATIONS . $e 1 Oke 88 ek ERIPAD SRe CTERMRT.MAR; 1 ° (1) 
00000079 17 -BLKB CTPS$B_PRO_MSGTYPE ; Header 
Boos 835 158 «WORD PROSE DATA 3; data message 
002° 0078 174 -WORD 10$-5$ ; Message length 
BF 70 4«6©175 5$ -BYTE CTPSC_MT_INP_STATE ; Input state 
1 7E 176 «BYTE CTPSM_IS_NONZERO ; Change from zero to non-zero 
O7F 177 108: 
O7F 108 
O7F 179 CT_BIND_ACC_MSG:: | 
OO00000A5 007F 180 -BLKB CTPSB_PRO_MSGTYPE ; Header 
04 QOAS 181 1$ BYTE PROSC_ACCEPT ; Bind accept message type 
0 ng 136 -BYTE 3 version number 
00 0 A 13 -BYTE 0 3; ECO, customer ECO *** 
00 Ao 184 «WORD ; hi, we're VMS! 
00000083 pone 13 BLKB 8 ; revision 
0000 008 186 «WORD 0 3 10 
00 0085 Is -BYTE 0O : Options 
00000011 0086 188 CT_BIND_MSGLEN == .-1$ 
00B6 189 
0B6 190 UNBIND_MSG: 
000000DC 00B6 191 -BLKB CTPSB_PRO_MSGTYPE ; Header ??? 
» O0DC 13 -BYTE PROSC_UNBIND 3 message type 
0000 OODD 1935 UNBIND_WHY: «WORD 3; reason code ** must be filled in * 
00000029 OODF 194 UNBIND-MSGLEN = .-UNBIND_MSG 
196 TERMSET: 
00000020 197 «LONG 32 ; 32 bytes of data 
000000E7° 198 ADDRESS 108 ; Address of data 
00000107 200 10$: -BLKB 32 3 
01 
sog OUTBAND_SET: 
00000000 00000000 so -LONG 0,0 ; enabled characters 
00000000 00000000 04 -LONG 0,0 ; includes 
00000000 00000000 205 LONG 0,0 ; abort 
00000000 00000000 soe LONG 0,0 ; 
209 ASSUME OOB_LEN EQ 8*4 ; assume length of storage 
10 
00000000 00000000 211 0 0,0 ; enabled characters 
00000000 00000000 sig -LONG 0,0 : includes 
00000000 00000000 1 -LONG 0,0 ; aborts 
00000000 00000000 1 LONG 0,0 ; discard 
1$ RD_STAT_TBL: 3; no particular order necessary 
0000 60) 18 «WORD SS$_NORMAL CTP$M_RD_NORMAL ; Success (most Likely) 
0005 022C 1 “WORD SSS$"TIMEOUT, © CTPSMTRD-TIMEOUT : Timeout 
9008 11 0 -WORD SS$"CONTROLY, CTPSMTRD-OUTBAND ; out of band 
003 (651 1 -WORD SSS$_CONTROLC, CTPSM_RD_OUTBAND 3 out of band *** (“*Y on ctd 
0006 ¢ ¢ : -WORD SS$"ABORT CTP$M~RD UNREAD : SCANCEL on channel 
0002 003C “WORD SS$"BADESCAPE, CTPSM~RD-INVES : invalid escape 
008 O1FC 4 “WORD SSS"PARTESCAPE, CTPSM~RD~ABSTOKEN ; partial *** semantics??? 
OOC O1F4 5 -WORD SSS_PARITY CTP$M_RD_PARITY 3 parity error 
00D yt § ~ WORD 5$$~DATAOVERUN, £7 PSA_RD _OVERUN 3 receiver over run 
OOOE 0204 3 -WORD SS$_OPINCOMPL, 4 ; ** need CTP code here 
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cy 
emote terminal protocol module 16-SEP-1984 86:09:13 wees Macro V04-00 
ONS ~SEP-1984 05:14:4 RTPAD.SRCJCTERMRT.MAR; 1 


r 
I 
16F 4 3; *** PARITY ERRORS NOT DONE HERE YET ... 
16F 1 RD_STAT_END: 
0000 if § WORD CTPSM_RD_NORMAL ; Catch all 
171 4 READNETFLAG: 
00 1) 5 -BYTE 0 ; read from net flag 
173 5 QUEVED_BUFS: 
00000000 ite 3 -LONG 0 
176 40 FLUSH_STATUS: 
00000000 gee 41 =, LONG 
O17A 6 
O17A 435 SAVE_WR_POSTFIX: 
00 gira rt -BYTE 0 ; Save postfix from first write 
0178 46 SAVE_WR_FLAGS: 
0000 0178 47 «WORD 0 ; Save write flags 
017D 48 
017D 49 CTERM_VERSION: 
00 017D 50 -BYTE 0 
O17E 251 CTERM_ECO: 
00 OI7E 26 -BYTE 0 
017F 5 
017F 54; 
017F 55 ; Data from INIT Message 
017F 2$ 3 
017F 5 
017F 58 MAXSENDMSG: 
00000000 017F 59 N 
0183 60 MAXREAD 
00000000 0183 61 oti 
0187 $6 LEGALMSG: : 
000001A7 B18e oF -BLKB 32 : This is maximum 
O1A7 65 ; LOGGING OWN STORAGE 
01A7 66 ; 
000005C1 01A7 67 LOG_BUF : -blkb maxmsg 
00000000 05C1 68 LOG_ADDR: long 0 
05¢5 69 
05¢5 70 .if df debug 
05c5 71 neton: eascic /Turn net on/ 
b2C3 is netoff: eascic /Turn net off/ 
5¢c5 73 .endc 
05¢5 74 
00000000 75 -PSECT RTPAD,NOWRT ; Code 
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CTERM_LINKRECV = Cterm message on Link r eat 7 88: 4:4 RTPAD.SRCICTERMRT.MAR; 1 ‘“ (3) 
8 A -SBTTL CTERM_LINKRECV = Cterm message on Link received 
hi 34+ 
$ 1 ; FUNCTIONAL DESCRIPTION: 
000 ; Decide on message type whether to queue packet or process immediately. 
000 5 ; CALLING SEQUENCE: 
Bo08 36 3 BSBwW CTERM_LINKRECV 
0000 ss ; INPUT PARAMETERS: 
0000 90 ; RO = AST control block 
44 7) 3 
000 35 ; IMPLICIT INPUTS: 
0000 93 ; 
0000 94; WRITEQIO queue 
0000 95 ; READQIO queue 
0000 96 ; 
0000 97 ; OUTPUT PARAMETERS: 
0000 98 ; 
0000 99 ; NONE 
0000 00 ; 
0000 30) 3; IMPLICIT OUTPUTS: 
0000 o¢ 3 
0000 303 ; An entry may be added to a queue. 
0000 04 ; 
0000 05 ; COMPLETION CODES: 
0000 06 ; 
0000 O07 ; SIDE EFFECTS: 
0000 08 ; 
0000 09 ;-- 
0000 qi9 
0000 11 NOT_DATA: 
02 91 0000 312 CMPB = #PROSC_UNBIND, - , 
26 AO 0002 31 CTPS$B_PRO_MSGTYPE (RO) 3 unbind message? 
13 0004 14 BEQL 0$ ; If yes, die 
00000000°8F DD 0006 315 PUSHL #REM$_UNKMSG ; Unknown message 
00000000'GF 01 FB 4 1g CALLS #1,G*CIBSSIGNAL ; Signal 
001 1 QUIT  #S$$_LINKDISCON ; quit 
04 003C 18 RET 
Oo 80 19 20$: : : 
0B5D 30 8 D $9 BSBW UNBIND_RECEIVED : unbind received 
04 0040 1 RET 
041 $22 | 
0041 CTERM_LINKRECV: : 
Reet 4 
041 > 3* 
0041 § ; 
Boe} ; Valid message types here are: | 
041 5 : ctp$c_mt_init (1) Initiate (H <---> $) 
041 0 ; ctp$c_mt_start_rd a6 Start Read (H ===> $) 
041 1 ; ctp$c_mt_unread (5) nrea (H_ ===> S$) 
9 § 3 ctp$c_mt_clr_input (9) Clear Input (H ===> S$) 
41 3 ctp$c_mt_write (7) Write (H_ ===> S$) 
| 
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v04-000 CTERM_LINKRECV = Cterm nessage on Link r iets 88; 4:4 RTPAD.SRCJCTERMRT.MAR; 1 . 
41 ; ctp$c_mt_read_char (10) Read Characteristics (H ===> $) 
4) ; ctp$c_mt_cha (11) Characteristics (H <=<=> §) 
rf ; ctp$c_mt_check_inp (12) Check Input (H ===> $) 
41 i: 
OE A B4 41 CLRW ast OF FSET(RO) ; Clear initial offset 
06 AO (OO A3 64 SUBW3 = #2, AST$Q_10SB+2(RO),- ; Compute size of message minus *** 
10 A 0 48 AS T$wW_BUFSI2Z(RO) : foundation overhead, 
4A 3 
6 ; RO IS ALWAYS USED TO CHECK PROTOCOL MESSAGE TYPE (FOUNDATION BYTE) 
re ; THIS IS BECAUSE THERE ONLY ONE OF THESE PER MESSAGE 


; check pro_msgtypes here (SHOULD ALWAYS BE CTERM H®%E, UNLESS DISCONNECT) 


Sssss 
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Pree 
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es 

; Prevent others from starting up 
; process now 

; Exi 


00000000" EF INCL Pp wsit 
00000112°EF 9 CALLS #0,CTERM PROCMSG 


» 
BRB CTERM_LINKRECV_EXIT 


4 
4 
4 
4 
4 
4 
4 
4 
r 
09 891 QO4A 5 CMPB #PROSC_DATA,=- 
26 AO 004c 9-35 CTP$B_PRO_MSGTYPE(RO) ; data (cterm) message? 
BO 12 ied ; BNEQ NOT_DATA : If yes, continue 
Beep 5 CASE CTP$B_MSGTYPE(RO),- ; Case on message type 
050 5 <10$,=- 3 © invalid 
0050 «35 INIT_RCV,= : 1 nit 
0050 5 20$,- $ ¢ start_read 
0050 5 10$,10$,- : 3.4 read_data,out_o*_band 
0050 5 UNREAD _RCV,- ..% unread reques 
0050 6 CLR_INPUT_RCV,- : 6 clear input request 
0050 36 1008 ,- 77 write ; 
0050 6 10$,10$,- ; 8,9 write complete,discard output 
0050 6 aS te : 16 read_char 
0050 6 0$,- s 7} set char 
0050 6 20$,- : \§ check input | 
0050 6 10$,10$,- : 13,14 input count, input state 
0050 36 100,- : 15° vms qio 
0050 6 10,- ; 16 vms brdcst (invalid here) 
0050 36 20$- : 17 vms read verify 
0050 7? >,2 
0050 7 TYPE = B ; Byte field 
0079 72; : 
0079 73 ; Ignore invalid message 
0079 74 ; 
0079 75 
079 76 108: 
007A 3] Bee 7 BRW ERROR_RCV : Signal message 
5 7C 78 RSB 3; Just return 
07D 79 ; 
$43 Bi ; READ, SET, SENSE 
70 § 208: ; Read or Set/Sense mode request 
O0000000°EF 05 7 8 TSTL READQIO ; Read outstanding? 
17 ig : 4 BNEQ ; Branch if re : 
OOOO0000'EF oD 5 TSTL vei TEaio ; Write outstanding? 
12 § BNEQ 30 : Branch if 
Pe 8 ; 
fi 9 
0 
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v04-000 CTERM_LINKRECV = Cterm message on Link r ets $6392 543 RTPAD.SRCICTERMRT .MAR; 1 
0000172'EF 6 9 91 INCL QUEVED_BUFS ; Add to count now in queue 
0000s. Ft 60 be hs 3 INSQUE (RO) ,@READQ+4 3 Stick at end of queue 
me a . $4 BRB CTERM_LINKRECV_EXIT : Exit 
OAB 95 ; WRITE 
0AB 36 : 
OAB 397 100s: 
00000000 ' EF 3 OAB 38 TSTL WRITEQIO ; Write outstanding? 
F 2 0081 9 BNEQ 110$ 3; Branch if yes 
OOOOOO00"EF 06 0083 400 INCL WRITEQIO ; Prevent others from starting up 
00000112°EF 00 FB OO0B9 401 CALLS #0,CTERM_PROCMSG 3; Process now 
0 11 the 40¢ een BRB CTERM_LINKRECV_EXIT : Exit 
00000172°EF 06 O0C 404 INCL QUEVED_BUFS 3; Add to count now in queue 
QO000004'FF 60 OC Bote tbe INSQUE (RO), ,aQRITEQ+4 3; Stick at end of queut 
Soc 409 CTERM_LINKRECV_EXIT: 
OOCF 408 
03 D1 OOCF 409 CMPL #MAX QUEUED_BUFS,=- 
00000172'EF 00D1 410 QUEUED_BUFS ; Check amount queued 
01 15 QOD6 411 BLEQ 10$ ; Branch if lots queued 
05 00D8 rt RSB : not real busy, return and do 
itd ry 3 another read from the net 
0009 415 ; Q10's to terminal are getting behind data from net, don't return 
00D9 416 ; to LINKRECV in RTPAD so that another read from the net will occur. 
it 4 rt ; Instead, set a flag that shows reading from the net must be scheduled. 
0009 419 10s: 
00000171"EF 96 ited rc} INCB READNETFLAG : Set flag 
OODF 633 -I1F DF DEBUG 
OODF 4 movab netoff,r0 ; ** Debug 
OODF 424 bsbw log_ascic 3; *** Debug 
OODF 425 .ENDC 
OODF 426 
04 OODF 427 RET ; Exit from AST 
OOEO 428 
Q0EO 429 INIT_RCV: 
00E0 430 CLR_INPUT RCV: 
00EO 431 UNREAD_RCO: 
00E0 $36 
OOOOO000'EF 06 Boee oe? INCL READQIO 3 ®** yuck 
60 QOO000000'EF 9E it 435 MOVAB QIODONE,ASTSL_STATE(RO) ; Set next state after this 
00000112'°EF 00 FB OOED 4 § CALLS #0,CTERM _PROCASG ; Process NOW 
D9 «#11 «+OOF4 4 BRB CTERM_LIAKRECV_EXIT ; Exit 
OOF6 $38 
OF6 439 ERROR_RCV: 
5B 50 dO OOF6 440 MOVL RO,R11 
50 00000000'°8F 00 or 441 MOVL § #REM$_BADMSG,RO : Bad message 
: re BADF IELD_ERROR: 
50 oD 0Q1 445 PUSHL RO 3 reason code 
7E D4 1 44 CLRL -(SP) 3; no fao 
00000000°8F DD 0104 44 PUSHL #REMS$_PROTERR 3 protocol error 
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FUNCTIONAL DESCRIPTION: 


Process message recieved from link. Take a protocol packet received 
from the net and translate that into a terminal action on this end. 


CALLING SEQUENCE: 
CALLS #0,CTERM_PROCMSG 


INPUT PARAMETERS: 

RO points to AST control block. 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 72? 
READQIO 
WRITEQIO 
RETSTATUS 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
A Q10 to the terminal may be performed. 


CTERM_PROCMSG: 


OFFC -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Register save mask 


Valid message types here are: 
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DDO FBP PPP PEE EE EE EPP INPINIPNINNINININPINIPONPIPONPPONoNonononononoporopornororsprrnrn OF 
CONIA MEA 9 OD NAME WIN 9 OO NAME WIN SO OD NAMEN 0 ODNOM EW OOONAUE UT 


Cin lol el ele lel ele el al el el aol el ele al al elelo lolol ala olololeleololeleleleleolelelelelolelelelelelel oleae alalel a a) 


3¢ 

; ctp$c_mt_init (1) Initiate (H <---> $) 

3; ctp$c_mt_start_rd 06? Start Read (H ===> S$) 

3 ctp$c_mt_unread (5) Unrea (H ===> $) 

3 ctp$c_mt_clr_input (9) Clear Input (H ===> $) 

; ctp$c_mt_write (7) Write a (H ===> $) 

3; ctp$c_mt_read_char (10) Read Characteristics (H ===> $) 

3 ctp$c_mt_char (11) Characteristics (H <=-=> S$) 

; ctp$c_mt_check_inp (12) Check Input (H ===> S) 

5B O€ AO 3¢ MOVZWL ASTSW_OFFSET(RO) R11 ; Offset to current message 
58 5 co ADDL2 ~=RO, RIT ; Add in base 
51 7¢ CLRQ R1 ; Clear R1,R2 


NARS ey Tes 2 iiak Sere SE ten 
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Process message rec ee 


M remot 
PROCMSG - 


AX/VMS Macro V04-00 
RTPAD.SRCJCTERMRT.MAR; 1 


; Clear R3,R4 

; Clear R5,R6 

; Assume read channel 

; Assume next state after this 


ONE, white STATE (RO) 


ozorrmozr 20422440 SM 


V0 i MHYOMPS PS-DASPF--OCOV OP, 
mis OF ODO -4 me Dower FC 


AV 2 90D - LOC KS AO OWwwD 


~<e 


; Ignore invalid message 


SOOOOCOCCCOCOCOCOOCSCOOCSOOOCOOOOOCOCOOOOOOOOOOO 
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PARANA AAA AAUP PI RIFU PIPPI P PPP PUPININ 


VITI™ OOO O00 0000000078 NAN ANN nn nn OOS nO 


S&S EWN AWIWWIWIAIPOPOPONPOPNOPPNN PO OO On ee OO 


WR SO OONAUNE WN OVO ONAU EWN CO ODNOUS WN -O0 


; Case on message type 
; 7 invalid with pe 


o 


od 


De Se Be Be Be Be Be Se Be Be Oe 
_— OO IO WI 


OUWnm oO 
— 
a —. 


7 (read verify) 
; Byte field 


Just return 


*** should this be here? 
handle qio 
do it 


CTERMRT 
v04-000 
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ww 
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59 

E8 

58  0000017F ‘EF 
13 

58 00000183'EF 
OA 


58  00000187'EF 
59 


50 vee: baad | 
1. 
52. 26 AO 


ar 
— 
ma 
z- 
arm 


oo-90 OWOO 
orun- OoOomnn 


—ooor —-900 900 -—-0 -0 — 
om om —-m —m — 
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zD 
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e terminal protocol module i at dt hy Ree?) AX/VMS Macro V04-00 
- Process message recieved 5-SEP-1984 05:14:4 RTPAD.SRCIJCTERMRT.MAR; 1 
‘2 INIT_MSG: ; message type = 1 
23 PUSHL RO ; Save 
rf MOVW CTP$B_IN_VERSION(R11),- 
26 ; W*CTERM_VERSION ; Version and ECO 
i : Parse INIT message 
2g MOVAB CTP$B_IN_PARMTYPE(R11),R6 ; address of first parameter 
54 MOVAB CTPSB"MSGTYPE(R11),R7_ ; address of base of message 
55 MOVZWL CTPS$W_MSGSIZE(R11),R10 ; size of message 
2$ DOL R7,R10 ; end of message 
58 10$: CMPL R10,R6 3; compare to end 
559 LEQ 90$ : exit done 
560 MOVZBL 1(R6),R7 ; Size of parameter 
561 OVL #2,R9 ; Default maximum storage area size 
562 CASE — (RO), = 
563 <20$.308,40$>,- : 
564 TYPE=B,LIMIT=41 ; Limit is really base? 
26? BRB 10$ : error here... 
269 208: MOVAB MAXSENDMSG,R8 
208 BRB 70$ 
570 30$: MOVAB MAXREAD,R8 ; Shouldn't really get this in server 
22] RB 70$ 
358 40$: MOVAB LEGALMSG,R8 ; Legal messages 
fe OVL #8,R9 
576 70$: MOVAB 2(R6),R6 ; bias 
577 CMPL R7,R9 3; check sizes 
578 BLEQU 76 : branch if it fits 
579 ; minor error here, about to lose data 
580 SUBL3. -R9,R7,-(SPS ; calculate remainder 
581 MOVL R9,R7 3; set size 
256 POPL RG 3 remainder 
58 BRB 80$ 3 
ate 
252 76$: CLRL RD 
289 80$: MOVB (R6)+, (RB) + ; set up 
288 SOBGTR R7,80$ ; 
590 MOVAB (R6)CR9I],R6 ; add remainder 
91 BRB 10$ 
3 90$: 
94 : Send INIT message to HOST now - receiving this message 
+ ; will start up LOGIN on VMS. 
39 MOVAB CT_INIT_MSG,RO ; AST block address 
98 MOVZBL #CT_INIT_MSGLEN,R1  Lengt 
399 MOVAB CTPSB_PRO_MSGTYPE(RO).R2 ; message address 
$01 : Send CHAR message to init characteristics (VMS TO VMS ONLY) 


CT 


F 8 
CTERMRT = CTERM remote terminal protocol module 1 miiety 4 ie 9:1 AX/VMS Macro V04-00 Page 13 
v04-000 CTERM_PROCMSG = Process message recieved 5-SEP=-1984 05:14:4 RTPAD.SRCJCTERMRT.MAR; 1 (4) 
1E1 6 ¢ : 
04 €1 OIE] 6 BBC #FLGSV_VAXHOST = 
20 900° CF 1E3 604 WACTERM_FLAC ‘40S ; Branch if not VAX to VAX 
5 OO047"EF 9E OIE 605 MOVAB CT_INIT_CHA’ . a5 ; block address 
OOOOOOO'EF 7D ie 606 mova CHAR BLOCK» (R3) ; first ozses 
08 A sth * tl F pO OIF 607 MOVL CHAR_BLOCK+8,8(R3 3; second 4 bytes 
4 OF 9A O1FD 608 MOVZBL #CT_INIT_CHAR_MSGLEN,R4 ; Length 
51 4 C0 69 609 ADDL R4,R1 ; Add to Length 
28 AO 3265540—CO AO CO 83 o19 1008 ADDW R4,CTPSW_MSGSIZE(RO) ; Add to length 
FDOF6" 30 3 oF oi¢ BSBW WRITE_TO_NET_SYNC ; Write to net synchronously 
50 8ED0 0208 614 POPL RO 
O4CF 1 443 ei? BRW CTERM_PROCMSG_EXIT ; Exit back to common code 


G 8 
e terminal protocol module 16-SEP-1984 :09: AX/VMS M v04-00 P 
peotoge recieved ‘SoseP=1984 OSitesa? 25C7 one 


CTERMRT - CTERM remot 
v04-000 CTERM_PROCMSG = Process message recieved 714 RTPAD.SRCJCTERMRT.MAR; 1 
19 oi8 START_READ_MSG: 3; message type = 2 
OOOO0000'EF 06 1? ? 9 INCL READQIO ; Set ‘‘read active’ 
AA 1 6 BICW < GSM_CTRL_O!- 
19 6 : (Gem gree CY>,- 
QOOOOO000'EF 06 Ht ° : TER M_F ; Clear *O and flushing 
16 AQ D4 ere § CLRL ASTSL_ITMLST(RO) ; clear itemlist pointer 
38 3s 49 8 g ? f poset e103 8m R ADPROMPT, R8 ; Set function code 
51 28 0 § 629 ETPSL SR SR SFLAGS(RIND R1 ; Flags (3 bytes) 
0 EF 650 EXTZV #cTP$? NTROL, 
9 0228 631 ac TP Ss ae ~CONTROL. = 
SA 1 O22 6 § R10~ ; Extract control character flags 
16 613 3 o37 ; BEQL Hy og” : If none, branch 
0230 636 : Decide on function code. (note: READPROMPT and TTYREADPALL may be enough)???? 
0230 637° 
$ O38 3 t** case on type R10? 
5A 03 91 0230 640 CMPB #CTPSC_SR_ALLBUTX,R10 ; read passall (sort of)? 
05 12 0233 641 BNEQ 20$ 3: no, branch 
58 38 90 0235 a) MOVB #10$_TTYREADPALL ,R8 ; Set function code 
i 8 HA te 208; BRB 30$ ~ 
5A Oe 91 O53a 645 CMPB #CTPSC_SR_EDIT,R10 ; Read edit enarectare? 
0 12 0230 646 BNEQ 25$ : If not, si 
58 0200 8F A8 O23F 647 BISW #10SM_NOFILTR,R8 ; Set read e it characters 
00 11 8 te ote 25$ BRB 30$ 
0246 630 "ss wee whats Left? 
rts 626 > Map flags into function code modifiers 
b5c6 | See S08: 
51 0B €1 0246 655  ~— BBC #CTPSV_SR NOECHO, R1,40$ ; No echo? 
58 0040 8F A8 Osea 636 408 BISW #10$M _ROETHO 3 
a ahao 90 4 0951 $38 X erty FiOSh TIF SR ein D.R1,60$ ; Timed? 
3 2 B0 6 38 o60 608 MOVW CTPSW_ sR Meat ourcntt). R3 : Set timeout value 
05 51 E1 o af 066 ’ BBC #CTPSV_SR pur E.R1,80$ ; Purge typeahead? 
58 0800 A8 4 967 aos: BISW #10$M_PurRGE, 3 
EO 9 65 665 — BBS #CTPSV_SR_TRMECHO,- 
67 § R1,100 3; Terminator echo? 
69 #10$M_TRMNOECHO,R8 > no 
§ #CTPSV_SR_CVTLOW+1,- ; hack assumes values of ,f¥ree field 
R1,12 ; convert lower to upper? 
t #10$M_CVTLOW, RES ; 
77 #CTPSV_SR_ESCAPE ,- ; Escape? 
0279 R1,1408 3 


O1A7'CF 
O5C1'CF 


58 4000 8F 
re 3 
5 


wow 
on— 


55 3A 
02 
2A AB 
OA 
55 42 AB 
3E AB 
58 602~—=Cid11 
56 85 
OE 
02 
SA O51 
1A 
SA 02 
Va 
5A 01 
15 
54 OODF'CF 
3F 
00 65 56 
3F 
54 OODF'CF 


56 95, 28 

51 56 85 

03 

OF eek 
65 

55 

3F 
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: Set up prompt 


CONAVUVE WN OVWONOULS WN —-OO0an 


POPONOMONONONININ SS SS OOOO 
Ww 


Si in Sin iin itn Si i it i i Nt tt te ee 


SEP=1984 
#1OSM_ESCAPE RB 


#CTPSV. SR NOEDIT,~ 
#2,R1,2(S 


(SPDs ATRNSV_TH_NOEDIT, 
#2, RB 


: Set up terminator mask 


CTPST_SR_TERM(R11),R5 
#CTPS$C_MT_START_RD,- 
STORE RSS YPECATI 


: Read verify 


CTPST_SR 


ry -TERN(RI1) RS 
CTP$W~SRO-EDITFLAGS(R11) 
M-R_JUST,#2,R8 


#TRMSO_T 


R5)+,R6 
CTP$V_SR_TERM_SET,- 
CTP$S~SR-TERM_SET.- 
R1,R10 
TPSC_SR_PREVTERM EQ 0 
CTPSC_SR_NORMTERM, R10 


2 
CTP$C_SR_THISTERM,R10 
20$ 

W*TERMSET,R4 
#*M<RO,R1,R2,R3,R4,R5> 
R6, (R55 ,#0,#52,8(R4) 
#°M<RO,R1,R2,R3,R4,R5> 


W*TERMSET,R4 
and buffer 


a 
# 
C 
2 
# 
2 
& 
2 


w*LOG_ 
*W*LOG_ADDR 
#°A<RO,RT,R2,R3,R4,R5> 
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= CTERM remote terminal protocol module i eb 9 ¢: 9:1 
PROCMSG = Process message recieved 5- 14:4 


; Extract VAX specific bits 
; And put them where they belong 


; Fetch terminator field address 


3; Normal read 
; Branch if yes 


; Fetch terminator field address 


; Length of terminator mask 


AX/VMS Macro V04-00 
RTPAD.SRCJCTERMRT.MAR; 1 


1 
| 
| 
Set read w/escape | 


Set extra read flags 


Extract terminator set flags 
Assume 0 is previous terminator 
Branch if not zero 

Use this terminator set? 

yes, continue with R4 as zero 


Use this terminator set? 

unknown value = use normal set 

Copy terminator mask 

Use previous set (VMS won't send this) 
; Address of read data (prompt) 


; Length of prompt 
q tier for read data 


Branch if not loggin 
os LOG prompt 7“ 
® 


| 
| 
| 
| 


vz 
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“no 


SQ NSIS OP 
SUPT PTT TTT BB BS BS BB EE WAIANAE 


o7 
oe 
23 


~~ 
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“MW =NRWN 200 
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SANG 
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; TRMS_TIMEOUT 

#1O$V_TIMED,R8,240$ 
(R10)F 

$ TIMEOUT, (R10)+ 
TO)+ 


i] 
0 
i] 
Q 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 
0 
0 
0 
0 
0 
0 
: 
0 


ANNAN. AAAI. AA AAAI NAAN AIA AAI WII 
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CoCo 0009090908 SI NINN NNN 
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1 8 
e terminal protocol module 
- Process message recieved 


this point: 


meout value 

address of terminator set 
Address of prompt string 
Length of prompt 

readchan 
ction code 
= scratch 


230$ 
#*“XFFFFATRMSV_TM_NOEDIT,R8 
2308 ; 


#CTPSC_MT_VMS_READVFY,- ° 
CTP$B_ASGTYPETR11) 


R 
R10, ASTSL_ITMLST(RO) 
; TRMS_PROMPT 


0 
R6, (R10) + 
#TRMS_ PROMPT, (R10)+ 
R5,(RTO)+ 


: TRMS_INISTRNG - initial data to 


Length of promp 
Length of promp 


al) 
fset (initial 


MOVZWL CTP$W_SR_STR_DISP(R11),R9 
MOVZWL CTP$W-SR-END-DATA(R11).R10 
CMPL R6,R10 


:09:1 
14:4 


address of data or initial string 


t 
t + Length of inioffset 


; see if read verify 
; must use itemlist if true 
; nothing special, do normal read 


Save RO 

Get buffer 

Address of itemlist 
Restore R é 
Save address of itemlist 


Save address 

prompt length 
rompt 

gerese of prompt 
2 


m 
address of itemlist 


Branch if timeout not requested 
no val 
timeout 
value 
mbz 


pre-load 


AX/VMS Macro V04-00 
RTPAD.SRCJCTERMRT.MAR; 1 


~ 
——— ee | 


string non-zero implies item List) 


fetch INIOFFSET parameter 
Fetch end of data length 

init string present? 

Yes, do read itemlist 

high bits in R8& set? 

other bits set, must use itemlist 


CTERMRT 

v04-000 
8A 
8A 
58 


- CTE 
CTERM_PROCMSG = Process message rec a Fh “SEP-1984 05:14:46 RTPAD.SRCJCTERMRT.MAR; 1 
787 : 
30 AB C3 ; ? 3 MOVZWL CTP$W_SR_END_DATA(R11) R2 ; inistring + prompt 
52 >. = 7 SUBL Re R2- ; minus prompt tengt 
4 A 790 BEaL §«©=_-256$ > Branch if no ini string 
8A ¢ B > 200 MOVW R2,(R10)+ 3 pengte ¢ of init string 
A g 8 F 13¢ MOVW =o ATRES TANESTRNG. ,(R10)+ 3 item code 
A ne. 4 79 MOVL R1,(RT 3; Address 
BA D4 0345 794 CLRL_ = (R10)+ ; mbz 
51 52 ¢cO 8 rt 2 ADDL2~ =R2,R1 ; Next string 
0 i. 190 ; TRMS_INIOFFSET = where to echo inistring from 
8A B4 6 4A £38 ELRW = (R10) + ; no value 
8A 08 BO 034C 800 MOVW #TRMS_INIOFFSET,(R10)+ ; modifiers item code 
59 DS O346F 801 TSTL R : zero? 
06 1g 932] ang BEQL 5$ ; this parameter zero 
7? ss £ 353 0 SUBL3 R6,R9, (R10) + ; store inioffset-prompt Length 
02 11 0357 804 BRB 4?$ * ; continue 
8A D4 0359 05 245$:  CLRL (R10)+ 3; zero parameter 
8A 04 0358 806 247$: CLRL (R10)+ 3 mbz 
035D 807 250$: 
035D 808 ; 
035D 809 ; TRMS_MODIFIERS 
035D 810 : 
8A B84 035D 811 CLRW = (R10) + ; no value 
8A 00 B60 O35F aig MOVW #TRMS_MODIFIERS,(R10)+ ; modifiers item code 
58 3F 8 0362 81 #10$M_FCODE,R8,(R10)+ ; CLEAR function code : 
8031 8F C 0366 814 MOVZWL #< 108A ~EXTEND! [0$_READVBLK>, R8 ; Set Item List QI0 function 
BA D4 0368 815 CLRL (R10)+ ; mbz 
036D 816 3 
0360 817 ; TRMS_TERM = terminator mask 
036D 818 : 
54 05 0360 819 TSTL R4 ; Use nerve Sornineters if zero 
OC 13 O36F ag0 BEQL 260$ : Branch i 
8A 20 8B0 O37) 821 MOVW #32,(R10)+ : length 
8A 03 BO 0374 Ht MOVW #TRM$_TERM, (R10)+ ; item code 
08 AA «=9E ~(0377—B2 MOVAB 8(R4)7(R105+ : address of terminator mask 
8A D4 0378 ase CLRL (R10)+ 3 mbz 
037D 825 2608: 
037D 826 ; 
6855 HH 3; Test for read verify 
11 91 037D 829 CMPB ste y MT_VMS_READVFY,- 
24 4B oa 830 P$B_ASGTYPETR11) ; see if read verify | 
30 06.12 «20381 )~—S 831 BNEQ $508 3; done with itemlist if not 


RM remote terminal protocol a te -SEP-1984 06:02:13 eevee Macro v04-00 Page . 
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e terminal protocol module 16-SEP-1984 02:09:1 AX/VMS Macro V04-00 Pa 18 
- Process bessege recieved g E 71982 $8: 92:4 t ™ (6 


oe 
=z3 
“oOo 
ac 


OOCCCOGOOOCOCOCOO 


Fl tek ek lel Dek ta ee ee el ded ao hob ah ah hed 


0.09 09 09 C0 CD CD Cd OD 09 OD 09 CD Cd CD Cd Cd CD OD CD CD GD OD CD OD CD 09 C9 09 00 09.09 09 00 09 0D 0200000000 


SN NOAAA AAA AAAI 
WR 9 ODONAUE WIN OOO NOME WIN O ODNOAUES WN OOONOULW 


COOOCCOOCOOCOOOCOOCOCOOCOCOOCOOOCOOOOOO 


WAN 


a S _ - 


SEP RTPAD.SRCJCTERMRT.MAR; 1 


; TRMS_EDITMODE = set read verify mode | 
CLRW 


(R10)+ 3 no length 
MOVW #TRMS_EDITMODE,(R10)+  ; item code 
MOVZBL #TRMSR_EM_RDVERIFY,(R10)+ ; read verify 
CLRL (R10)+ 3 mbz 


; TRMS_PICSTRNG = Picture string 
ROVZWL TP$W_SR2_PICSTRSIZE (R11) ,R2 ; Length 


8 70$ ; Branch if zero 

MOVW R2,(R10)+ : length 

MOVW  #TRMS_PICSTRNG,(R10)+ : item code 

MOVL R1,(RTO)+ ; address 

CLRL =—s_- (R40) + + mbz 

ADDL R2,R1 3; Add Length of picstring to address 


; TRMS_ALTECHSTR = Alternate echo string 


MOVZWL CTPSW_SR2_ALTECHSIZE(R11),R2 ; Length 
BEQL 280$ : Branch if zero 
MOVW R2,(R10)+ ; length 

MOVW #TRMS_ALTECHSTR,(R10)+ ; item code 

MOVL R1,(RTO)+ 3; address 

CLRL (R10)+ 3 mbz 


MOVZWL CTPSW_SR2_FILLCHAR(R11),R2 ; fetch fill characters 
BEQL 285$ ; branch if none 
(R10)+ : zero Length 
MOVW #TRM$_FILLCHR ,(R10)+ 3; item code 
R2,(RTO)+ 


CLRL = (R10) + 
: Done with read verify items 


value 
mbz2 
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= CTERM remote terminal protocol module i i at 9 93: 9:1 AX/VMS Macro v04-00 Page 19 
CTERM_PROCMSG = Process message recieved 5-SEP-1984 05:14:4 RTPAD.SRCJCTERMRT MAR; 1 (7) 
SA 3 C 75 299$:  SUBL3 R5,R10,R6 3; Length of item List 
33 Se £9 6 LRQ RR ; no BS "pe 
C6 77 300$: 
C6 4 : 
te 4 ; Allocate read buffer 
2— AB BO C6 1 MOVW CTPSW_SR_MAX_LEN(R11),R2 ; Length of read 
3 bp CA ¢ PUSHL ; Save main buffer 
FC31* 30 cc BSBW GE TBUF ; Get input buffer 
51 50 00 CF 84 MOVL RI ; Set address 
50 8EDO 03D 5 POPL RO ; Restore main buffer 
12 AO. 51 po 8 D § MOVL R1,ASTSL_ODATA(RO) ; save input buffer address 
32 Al 9E 0 D9 387 MOVAB CTPST_RD-DATA(R1),R1 =: Set address for returned data 
OO0O00000'EF 95 03D 4 TSTB NDFLAG ; Indirect file processing? 
03 12 OQO3E 0 BNEQ 20$ ; Branch if yes 
O3E 891 310$: 
027D 31 O3E5 O36 BRW CTERM_PROCMSG_QI10 : Do Q10 and Exit 
O3E8 89 
Oae8 894 3208: 
53 DD O3E 895 PUSHL ; Save 
3 0° O3EA 896 MOVL R2,R3 : Set Length 
FC10" 30 O3ED 897 BSBW VMS_INDREAD ; read from file 
53 8ED0 O3FO 898 POPL ; If code path returns here, | 
FO. 11 oeee +44 BRB 310$ ; routine got EOF, continue with Q10 


pee eeteiaineaaaaisaas 4 


CTERMRT - CTERM remote terminal protocol 4 te i a Sth 9 oe: 9:1 AX/VMS Macro v04-C0 Page 20 
v04-000 CTERM_PROCMSG = Process message recieved 5-SEP-1984 05:14:4 RTPAD.SRCJCTERMRT .MAR; 1 (8) 
: 3 § UNREAD_MSG: ; message type = 5 
1g 10 F 4 4 BSBB CAN EAD 3 cancel read 
02E 31 4 2 5 BRW CTE AC PROCRSG WEXIT 3; Exit back to common code 
4. 2 3 C. R_INPUT_MSG: 3 message type = 6 
FA 308 : *** note that the iotiowleg code path will never be taken 
+ ai9 ; **e when talking VAX to VA 
11 10 O3FA gg . BSBB  =s CANCEL_R cancel read 
58 0881 8F 3 FC 91 MOVZWL #10$ KERBVBLK! 10SM P URGE! 10SM TIMED,R8 ; Purge typeahead 
51 C AB E 0401 914 MOVAB Als 1_FLAGS+1(RT1) ),R1 ; Buffer addr 
52 0100 3 He 405 915 MOVZWL 6, as! : a random positive number ... 
0258 1 bc on 218 BRW CteRa _PROCMSG_Q10 3; Exit back to common code 
Beoe 218 > Local routine to cancel active read 
040D 920 CANCEL_READ: 
50 DD 0400 921 PUSHL RO i; save 
O40F 9 ¢ SCANCEL_S CHAN = READCHAN ; 
041D 9 Sapa QUIT : quit on error 
50 BEDO 0445 924 RO 3; restore 
05 0448 925 RSE 3 return 


| 
| 
| 
| 


57 


54 


54 


00000000" EF 
00000000 'EF 
38 80 


59 = 0178'CF 
B 


5A 2B AB 
03 5A 4 
69 A 

03 5A 05 
69 20 

5A 69 

69 10 

51 2F AB 
05 

52. 28 AB 
08 SA 02 
58 0400 8F 
00 

59 SA 02 
59 (03 

05 

58 2000 8F 
17 SA_ 04 

2D AB 

54 08 =10 
E AB 

017A'CF 

5A 07 

07 

00800000 8F 
12 5A_ 05 
O17A'CF 

54 0818 
5A o? 
80000000 8F 
03 


Bas or eee NI 
TERMRT “SEP- £09: “ 
ie a a at 9 o¢: 7} AX/VMS Macro V04-00 


= CTERM remote terminal protocol module Page 21 
CTERM_PROCMSG = Process message recieved RTPAD.SRCJICTERMRT.MAR; 1 (9) | 
cts 4 7 WRITE_MSG: ; message type = 7 
D6 ree 4 ° INCL WRITEQIO ; Set ‘write active’ 
BO O44F 931 MOVW WRITECHAN,R7 ; Set write channel 
9A 436 3 ‘ MOVZBL #10$_WRITEVBLK,R8 ; Set function code 
439 3 4 ; Must use flags from message with BEGIN set. 
9 0459 9 : MOVAB W*SAVE_WR_FLAGS,R9 ; set address 
3¢ 045— 9 MOVZWL CTP$W_QR_FLAGS(R11),R10 : Flags 
E1 046 9 8 BBC #CTP$0_WR_BEGIN,R10,5$ ; Branch if not BEGIN 
BO 046 9 MOVW R10, (R9) ; Save 
Bees 940 5$: 
E1 0469 941 BBC #CTPSV_WR_END,R10,7$ § ; Branch if not END 
A8 b¢90 o08 - B1SW #CTPSM_WR-END, (ROS ; Set end in original flags | 
BO bees 944 MOVW (RI) ,R10 ; Pick “ flags for this write 
AA be ee rH BICW #CTPS$M_WR_BEGIN, (R9) ; Clear BEGIN in original flags 
9E 0476 947 MOVAB CTPST WR DATA(R11),R1  ; Set address of write data 
AS O47A 948 SUBW #<CTPST_OR DATA-CTPS$B_MSGTYPE>, =; Compute length of write 
047C 949 CTP$W_MSGSTZE(R11),R2 ; as length of message minus overhe 
E1 9444 o29 BBC #CTPSU_WR_NEWLINE,R10,10$ ; newline is VMS specific 
AB 0483 928 BISW #1OSM_NEWLINE,R8 3 set newline 
31 bees it BRW CTERM_PROCMSG_QI10 ; done... (no logging) 
0488 955 ; Compute carriage control and refresh 
0488 956; 
0488 957 10S: 
EF 0488 958 EXTZV #CTPSV_WR_LOCK,- 
ot 82) #CTP$S_WR_LOCK,R10,R9 ; Extract locking field 
Bean +d : it is assumed here that all writes happen with locking 
91 0490 9% CMPB 40s ACTPSM_WR_BEFAFTRE.R9 ; redisplay set? 
12 0493 964 BNEQ 1 ; branch if not 
A8 9844 302 158 BISW #1OSM_REFRESH,R8 ; Set refresh 
E1 049A 96 ; BBC #CTPSV_WR_BEGIN,R10,20$ ; Not beginning of message, skip flags 
FO 049E 968 INSV CTP$B_OR_PREFIX(R115,- 
4A1 969 8,RS ; Insert prefix into high word 
90 0444 970 MOVB CTP$B_WR_POSTFIX(R11),- 
4A7 = 9771 W*SAVE_WR_POSTF IX ; Save postfix for later 
€1 4AA 97 BBC #CTPSV_WR_PREFIX+1, - 
04AD 97 R10 sos 3 *** hack. branch if not char 
c8 nee are BISL #°x80a16,R4 ; Set character bit 
E1 0485 976 20$: BBC #CTPSV_WR_END,R10,30$ =; Skip if not end 
FO 0489 97 INSV  W*SAVE“WRTPOSTFIX.- 
48D 97 #24,88, : Into high byte 
E1 b4c9 97 BBC #CTPSV WR_POSTFIX+1, - 
4C 980 3 *** hack. branch if not char 
C8 O4ck 981 BISL #*x80a<16+8>,R4 ; Set character bit 
408 9 ¢ 30$ 
E1 04CB 9 BBE #CTPSV_WR_DISCARD,- 


C 
v( 


i 
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M remote terminal protocol module 1 =~$EP-1984 03: 9:13 VAX/VMS Macro V04-00 Page 22 cre 
-PROCMSG = Process message recieved 5-SEP-1984 03:14:4 RTPAD.SRCICTERMRT.MAR; 1 (9) Vv04 
Of an 4CD | 4 R10,40$ ; Cancel Discard state? 
58 0040 BF AB O4CF 5 Bisw #losm CANCTRLO, R8 : Set cancel control 0 
AA Q4D4 9 § BICW #<FLGSM_CTRL_O 
ty 9 FLGSM =fTRL RL 90! = 
00000009 EF 06 4D 9 3 CTERMCE ; Clear “O and flushing 
40B 989 40S: 
98 E1 408 990 BBC acTPs$ a Seema 
5 5A 400 991 R10 ; Write transparent? 
0100 8F A8& 4DF 336 BISW #10 
46E4 9935 50S: 
OQOOOOOOO'EF OD 4E4 994 TSTL at 3; read ted 
"F 1 4EA 8e2 BEQL 55$ 3; skip if n 
56 0200 8F A rt 43 555 BISW #1OSM_BREAKTHRU,R8 3; set braekbare (fake full duplex) 
03 ~=€0 bce 4 998 BBS #FLGSV_'.OGGING 
03 0000'CF 04F3 999 W°CTERM FLAG, 60$ : Branch if logging 
0168 31 O4F7 1000 BRW CTERM_ PROCMSG_ Q10 3; Exit back to common code 
QO4FA 1001 60S: 
FBO3' 0 O4FA 1308 BSBW CTERMSLO 3; ** LOG WRITE 
0165 1 a4 190 BRW CTERM *PROCHSG_Q10 ; Exit back to common code 


$_NOFORMAT,R8 : Set write no format 
| 
| 
| 
| 


¢ 9 
emote terminal protocol module 19360-1382 oe: 9:1 AX/VMS Macro V04-00 Page $3 
ws CMSG = Process message recieved 5-SEP-1984 05:14:4 RTPAD.SRCICTERMRT.MAR; 1 (10) 
0 } § READ_CHAR_MSG: ; message type = 10 
00000000 EF : ! 3 INCL READQIO ; Set "read active” 
58 27 80 5 3 1010 MOVW #10$_SENSEMODE ,R8 ; Set qio function 
51 ar 33 5 1011 MOVAB CHAR canes 3 cherestortetics block 
5 A} 313 a MOVB #i2,R ; Length 
O14F = 351 08] 101% BRw CTERM_PROCMSG_Q10 ; Exit back to common code 
0516 1015 


< 
Sm 


o7 
oe 
23 
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ww 
wn 


Sete te at Sete Ge Ge Ge Ge Ge Ge Ge 


Ree eee. 
So 
eB 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
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1 
1 
1 
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1 
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1 
1 
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1 
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SINISE DDS DEDEDE DDD TTT BE BB BB AAAI AINA AINA POPOPOPOPNNONEY SS 


WIS OONAUNE AN 9 OO NAME WIN OOO NOA UNE WN 9 OONIA UNE WI O OONOAU EW" OOO 


terminal protocol models 
- Process message recieved 


CHAR_MSG: 


INCL 


SUBL2 
MOVL 
CLRQ 
MOVAB 
PUSHR 


MOVL 


BSBW 
for out 


MOVAB 
MOVAB 


CMPC3 
BNEQ 


BRW 
BICL 
BICL 
BBC 
BBC 
BICL 
BISW 


; Enable out-of-band includes 


OOB_ INCLUDE (R6) ,- 
OOB~ INCLUDE (R7) 


py eae a Pho RO 


CMPL 


; Enable out-of-band 


CMPL 
BEQL 


MOVAB 


NCSI BM 


(R10) 
CHAR_BLOCK,R9 


OUTBAND_SET,R 
OUTBAND_NEW,R 


#O0B_LEN, (R6) ,(R7) 
10$ 


7 
PFLGSR _CTRLC ,W*CTERM_ FLAG 


oe “EXCLUDE CR 


BOB _EXCLUDE=6(R7) ,RO 
$Q10_S CHAN = 


1 AX/VMS Macro V04-00 
4 RTPAD.SRCJCTERMRT.MAR; 1 


message type = 11 


; Set ‘read active’ 


allocate local area 
Set address of 8 byte area 


ear 
Address of characteristics block 


; Set address of CTP 
; Map cterm List into VMS 


; Currently enabled 
; As returned by routine above 


; See if it changed 
; Branch if equa 

; Branch if not 

; Clear normal “C, “Y AST in OOB abort 
; Clear “Y abort, always enabled 
; Branch if no ctrl/c 

; Branch if no echo on ctri/c 


Clear *“C in abort 
3 set: enable standard “C 


; Compare include sets 


branch if no change 


: Set address of math descriptor 


TBAND INC 
#10$ SETMOBE! 10$M_ _OUTBAND ! 10$M_INCLUDE ,- 
CIERRA OUTBANDAST, 


:; Compare exclude sets 


branch if no change 


; Set address of mask descriptor 


= CTERM remote terminal protocol a ate a ot Sth 9 06:09: '] AX/VMS Macro V04-00 Page (ff) Cit 


CTERM_PROCMSG = Process message recieved 5-SEP=-1 RTPAD.SRCICTERMRT.MAR; 1 | vO« 
588 1074 EUNC = #108, SETMODE '108M_OUTBAND,- | 
B 1075 Pi CTERA_OUTBAN | 
1 £6 P2. = fO 
BO 107 
: } i Enable out of band aborts | 
$80 1080 80S: 
4 ag D1 0580 1081 CMPL 008 ~ABORT (RG 7 | 
A 583 10 ¢ 0OB- ABORT (R7) 3; Compare ABORT sets 
- i $28 1 BEQL 408" 3 branch if no change 
50 10A7_ YE 5B7 1084 MOVAB OOB_ABORT=-4(R7) ys ; Set address of mask descriptor 
58B 1085 $Q10_S CHAR = OUTBANDABO 
5aB 1 $ FUNC = = #108 SETMOBE 108M. OUTBAND ! 1O$M_TT_ABORT,- 
208 16 | . = cre TERM_OUTBANDAST 
O50 1 3 40$: A 
66 67 20 28 Beer 4 MOVC3) #O0B_LEN,(R7),(R6) 3; Copy new set 
03. «€1 Saet 1038 BBC #TTYSC_CTRLC,- 
1C 1C A7 OS5SE6 109 00B_ECAO(R7) ,80$ ; Branch if *C is not to be enabled 
OOOOO000'EF 95 O5SE9 1094 TSTB CNTRCFLAG : See if enabled 
as -42 OoeF 1095 BNEQ 95$ : yes, exit 
Bry ep Erste oc 
Q00000000'EF 96 O5F1 1099 ° INCB CNTRCELAG, : set enabled 
50 00000000'EF 9E OSF7 1100 MOVAB CNTRLC ; Address of AST routine 
51 0100 8 3¢ Ore 1101 MOVZWL #I0SM_ ene eeer, R1 : Parameter 
10 11 060 110¢ BRB 90$ 
0605 1103 ; 
0605 1104 ; Disable *C 
be08 1108 bos: 
00000000" EF 95 0605 1107 : Ist CNTRCFLAG : See if disabled 
h4 S, ex 
00000000°EF 94 9609 1108 CLRB CNTRCFLAG t Cee elsabled 
50 67C pele 4119 908 CLRQ RO ; Set inputs for qio 
0615 1118 " - $a10_s CHAN = CNTRLCHA Control C channel 
0619 111 FUNC = #<10$_ SE TMODE! 108A. CTRLCA ST> 
615 1114 P1 = (RO),= ; “Ast rout ine 
bet2 111? 958 p2 = R1 3; ast parameter 
eer wine at 111, POP BeMCRO, BT ABZ .RE.RGARS. ~ 
O0A2 31 6 A 1119 BRW CTERM’ PROCMSG_EXIT ; Exit back to common code 
630 1121 1008: 
OFFF 8F BA 063D 11 é POPR - M<RO,R1,R2,R3,R - 
641 1 ; 6,R7,R8,R9 R258 10:R 118° 
0641 1125 NOTE***: note that there is .. bug doing a set host/cterm | 
0641 11 g : 3 followed by a oft host/old. ogging off, an enable “T gets here 
eh i : in the code...??? 
51 59 DO 0641 11 8 J MOVL R9,R1 ; Set address of buffer 
52 0C 2S 90 0644 «11380 MOVE #12,R2 : Set length 


— | 


F 9 
CTERMRT = CTERM remote terminal protocol module 16-SEP-1984 :09:1 AX/VMS Macro V04-00 Page 26 Cr! 
v04-000 CTERM_PROCMSG = Process nessege recieved ets 38:92 ik ERIPAD sRe CTERMRT.MAR; 1 . ) vO 
3 2AA B 647 1131 MOVW (R10) ,R3 ; Set speed 
4 4 AA 8 o¢8 11 ¢ MOVW (R10) ,R4 3 Set fill | 
5 6 AA 4F 11 MOVB 6(R10),R5 ; Set parity 
58 23 8B $36 1 s MOVW  #10$_SETMODE,R8 : Set function code 
oooc§ 331 $28 1} § BRw CTERM_PROCMSG_Q10 3; Do Qio and exit 
222 1} 8 CHECK_INP_MSG: 3 message type = 12 
58 0067 8F 3¢ 659 1140 MOVZWL #10$_SENSEMODE! 1O$M_TYPEAHDCNT,R8 3; function code 
51 2C AB O9E 9? 1303 MOVAB CTPS$Q@_IC_COUNT(R11)7R1 ; Address 
0000=s «31 Ges 1148 BRW CTERM_PROCMSG_QI10 3; go to common code 
bee? 1122 CTERM_PROCMSG_QIO: ; Inputs are now ready to do Q10 (RO-R8) 
01 EO 0665 1109 BBS #FLG$V_CTRL_CY,- 
6B 0000'CF 0667 1148 W*CTERM_FLAG, 10$ : Branch if flushing due to “C or “Y 
50 oD pore 1193 PUSHL RO ; Save in case of Q10 error 
7E 55 7D 066D 1151 MOVQ R5,-(SP) 3; PS,P6 
7E 53 7D $34 1126 MOVa R3,-(SP) : P3,P4 
7E 51 7D 067 115 MOVQ R1,-(SP) 3; P1,P2 
50 «DD 60676 «1154 PUSHL RO + ASTPRM 
0000'CF oF pore 1155 PUSHAB W“ASTHANDLER 3; ASTADR 
04 AO 7F 67C 1156 PUSHAQ AST$Q_IOSB(RO) ; I0SB 
7E 57 7D O67F 1157 MOVQ R7,-(5P) 3; CHAN, FUNC 
7E D4 0682 1158 CLRL = ( §P) ; EFN 
00000000 ' GF oc FB 0684 1159 CALLS #12,G*SYS$QI0 3; call qio 
068B 1160 IF _NO_QUOTA QUIT 3; In quota error, quit 
0150 €9 Q6B5 1161 BLEC 0,5$ : If error, handle ast manually 
04 0688 116¢ RET 
0689 1163 5$: 
52. 50 DO 0689 1164 OVL RO,R2 ; save status : 
50 OD Q6BC 1165 PUSHL RO 3; push status from qio 
7E D4 bord 1166 CLRL -(SP) 3; no fao 
00000000'8F odd 06CO 1167 PUSHL #REM$_QIOERR 3 gio error 
00000000'GF 03 FB Bete 1168 CALLS #3,G*CIBSSIGNAL 3 signal 
50 8EDO O6CD 1169 POPL ; Restore buffer address 
04 AO 52 DO 0600 1170 MOVL R2,AST$Q_I0SB(RO) 3; store in 10S 
06 11 see 112) BRB 20$ : Go to declare ast 
0176'CF dO bebe 1198 10$: MOVL W*FLUSH_STATUS,=- 
04 AO 6DA 1174 AST$Q_10SB(RO) ; Set status 
08 AO D4 O6DC 1175 208: CLRL AST$Q_10SB+4 (RO) ; Set status 
tee 1176 ; fall through to DCLAST 
6DF 1178 CTERM_PROCMSG_EXIT: 
6DF 117 
6DF 1180 SDCLAST_S ASTADR = ASTHANDLER,- 
6DF 1181 ASTPRM = RO ; CALL AST 
ra 11 ; 
04 O6F 11 RET 
O6F1 1184 
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- Process a completed term 5-SEP-1984 RTPAD.SRCJCTERMRT.MAR; 1 


= 
ve 


-SBTTL CTERM_QICDONE = Process a completed terminal Q10 


a 
aa 


FUNCTIONAL DESCRIPTION: 


] 
| 
| 
| 
; CALLING SEQUENCE: | 
BSBwW CTERM_QIODONE | 
INPUT PARAMETERS: | 
RO = points to AST control block 
IMPLICIT INPUTS: 
NONE 
| 


OUTPUT PARAMETERS: 

RO = 0 means no message to send to Link. 

RO > 0 means send completion message to Link. 

If RO > O Then 

Ri = Length of message to write to net 

R2 - Address of message to write to net 
IMPLICIT OUTPUTS: 

RETSTATUS 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 


AST control block may be returned to free List. 
R3 destroyed. 


Valid message types here are: 


ctp$c_mt_start_rd $s} Start Read (H ===> S$) 
ctp$c_mt_unrea (5) nrea (H ===> S$) 
ctp$c_mt_clr_input (6) Clear Input (H ===> S$) 
ctp$c_mt_write (7) Write <---> §) 
ctp$c read char (10) Read Characteristics (H ===> S$) 
ctp$« char (11) Characteristics (H <---> §) 
ctp$c _check_inp (12) Check Input (H ===> S$) 


CTERM_QIODONE: : 
MOVZWL ASTSW_OFFSET(RO),R11 ; Offset to current message 


bn a bona, onsa Bona a a fon. Ponca once, Pn Ponca Pn Dons ns Done Do Dn Den Bn Do De i ne i Be be es bee Be be te te ete be ek) 
a ee a en a ss a a —) on 
FPP AANA MAING DINPININININININIDN 2 3 MH DOODOODOOOOOOO0O00000 0000000000 
MR—OOONANE WIN = OOONAUE WIN — O OONAUES WN 0 ODNOAUE WN 0 DOONAN WN OOOO 
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6 
6 
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6 
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6 
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6 
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6 
6 
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<- 
e2 


CTERMRT 
v04-000 


5B 50 SCO 
60 neeee 9E 
3 D4 


05 
FBA9" 30 
0179~—s 31 
0176 «(31 


QOO00000"EF 07 


50 D 
50 16 ry D 
0 
F892" 30 


53 12 A0 00 


26 A3 09 «9B 


222335] 7MOM OF 
zo 


= Zi 
o3 
mee 


USWR | O OONAUE WN OOONOUS Ww 


ee ee ee ee ee ne ee en en ee ee ee ee ee ae ee ee ee ee ee ee ee ee ee ee ee ee ee 
PIPPI PIM IPIPPIPIPINININYAIPNINIPUDIPUNININYINININIMUAIMININIAIMINPIPIPIPIPINIPONIPONPOPONOPONPOPUnonononononofry 


WOOO OOOO HO 0000 0909 09.09 09 09 09 09 SI NINN NS NSN NN AAA AAA AAA A MITT BS 


DOONAN WN OS OD NAME WIN OOO NAUE WN OOOO 


a 


: Shouldn't get to here 


108: 
QUIT  #REMS_INTERR 


: message completion 


VMSQ10_DONE : 
BSBW 


CT_VMSQIO_DONE 
CTERM_QIOBONE_EXIT 


BRb TERM_ ; 
INIT_DONE: 
BRW CTERM_QIODONE_EXIT ; 
START_READ_DONE : 3 
DECL READQIO : 
PUSHL RO : 
MOVL ASTSL_ITMLST(RO) ,RO : 
BEQL : 
BSBW BUF FREE 3 
5$: POPL R : 


MOVL ASTSL_ODATA(RO) ,R3 


; Fill in return READ_DATA buffer 


MOVZBW #PROSC_DATA, - 
CTP$B_PRO_MSGTYPE(R3)  ; 

CLRQ  CTPS$B-MSGTYPE(R3) : 

MOVB  #CTP$C_MT_READ_DATA,- 


— 
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e terminal protocol module 16-SEP-1984 02:09:1 AX/VMS Macro v04-00 Pa CT 
= Process 4 completed term Set 0¢:07:) RTPAD.SRCJCTERMRT.MAR; 1 ” (73) vO 

ADDL2 =RO,R11 ; Add in base 
MOVAB LNKWRTDONE ,ASTSL_STATE(RO) ; Set next state 
CLRL R3 ; Assume nothing to write to net 
CASE ee eee ; ee on message type 

INIT DONE,- : 1 

START_READ_DONE,- : ¢ 

10$,10$,- : 3.4 

UNREAD_DONE,- 7 5 

CLR_INPUT_DONE,- F $ 

WRITE _DONE,- ; 

10$,10$,- ; 8,9 

REAO_CHAR_DONE,- : 16 

CHAR_DONE,- . a 

CHECR_INP_DONE,=- ¢ \¢ 

10$,10$,- s 3 

VMSQ10_BONE,- : 15 

10, START _READ_DONE- : 16 

TYPE = B ; Byte field 


internal error 


14 

is VMS QI10 

17 (read verify) 

set . return data if necessary 
Exit back to common code 

Exit back to common code 
message type = 2 

Clear read active 


Save main buffer 
See if there was an itemlist 


Get return buffer address 


| 
| 
Set foundation data message 
Clear header up to data 

| 


a | 
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= CTERM remote terminal protocol module 197s6b= 138% oe: 2}3 macyes Macro Vv04-00 Page $3 
CTERM_QIODONE = Process a completed term 5-SEP-1984 05:14:4 RTPAD.SRCJCTERMRT.MAR; 1 (12) 
gn A3 443 1300 ; CTPS$B_MSGTYPE(R3) ; Set message type 
3 6A0 3 7 1301 rOVZWL AST$Q ig Megs FA ; Get Length of read up to terminator 
OAs. 51 3 784 1 ¢ MOVW 1 gi W_RD_TERM_POS(R3); Set terminator position 
B Ag 788 #1 MOVB  AST$Q_10SB+7(RO) -- | 
FA f : i CTPSB-RD_CURS_POS(R3) ; Fetch cursor offset from EOL | 
52 0A ag 9A 0780 1 § MOVZBL $5137 JOSEOStRO) Re ; Get terminator length 
51 5 AO 44} : Be ADDW R2,R1 ; Get total length of read data 
794 1309 ; Write logging file 
03. = €E1 re 9 bac #FLGS$V_LOGGIN 
22 ened oe 1 \¢ W*CTERA_FLA "a6s ; Branch if not logging 
F BB 79A 151 PUSHR #*°M<RO,R1,R2,R3,R4,R5> 3; Save 
50 32 A3 9E O79C 1314 MOVAB CTPS$T_RD DATA(RS),RO  : address of returned data 
53 OSCI'CF DO O7Ag 1315 MOVL W*LOG_ADBR,R3 3 set up address 
B £0 OQ7A 1 16 BBS #CTP$0_SR_NOECHO,- 
04 2B AB QO7A7 131 CTPS$L_SR FLAGS(RI1) 108 ; do not log input in NOECHO 
63 60 51 £28 OQO7AA 1318 MOVC3 R1,(RO),TR3) 3; copy data in after prompt 
51 01A7'CF re O7AE 1319 108: MOVA W*LOG_BUF ,R1 3; address 
ie) ae) ¢ 0783 1320 SUBL R1,R 3 length 
F846" 30 0787 1321 BSBW  CTERM$LOG_10 : log data 
3F 6BA CO7BA O13 § POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore 
O7BC 1323 20$: 
51 08 CO beer 135¢ ADDL #CTPSC_RD_PROLEN,R1 ; Add in buffer header length 
ate 1356 3; Map status 
55 00000147'EF 9E O7BF 13 8 MOVAB RD_STAT_TBL,R5 ; Get read status table 
54 QOQOOO16F'EF 9E Bere 3 4 50s MOVAB RD_STAT_END,R4 3; Get end of table 
04 AO 85 B1 O7CD 1331 CMPW (R5)+,AST$Q_I0SB(RO) ; Compare 
07 #13 07D1 1336 BEQL 60$ : Branch on match 
85 B65 0703 1 TSTW (R5)+ : bump pointer 
55 54 D1 O7D5 1334 CMPL R4,R5 : End of table? 
F314 «0708 «1335 BGTR 50$ > yes, status not in table 
07DA 1338 60$: 
2B A3 65 90 O7DA 1337 MOVB (R5),CTP$B_RD_FLAGS(R3) ; Set status 
25:04 AO E9 O7D 1338 BLBC AST$Q_I0SBTROY,70$ : Continue if error 
O7E2 1340 3; Check for ‘valid escape'’ or ‘buffer overflow'’, 
a: : ] ; both returned as SS$_NORMAL 
1B 4691 «(O7E2 1 2g CMPB Os MT TYSC_ESCAPE,- 
08 AO 7E4 1344 AST$Q_TOSB+4 (RO) ; Escape? 
10 if TES 1345 BNEQ 65$ ; Branch if not 
18 04 AO CE ore 1 +8 BLBC AST$Q_IOSB(RO) ,70$ 3; other error 
OA AO 01 «91 =«OO7EC «134 CMPB so #1, AST$Q_10SB+4(RO) > escape sequence? 
> 3 Orre ry BEQL ; Branch if not 
01 90 O7F 134 MOVB #CTPSM_RD_VALESC,- 
2B A3 7F4 1350 CTPSB_RD_FLAGS(RS) ; Set ‘valid escape” 
OF 11 rs : 51 658 BRB 0$ ; Continue 
04 AO 01 81 7F 1 38 CMPW £555 NORMAL .ASTSO_10S8(RO) : make sure wasn't “C/*Y 
09 4g 7FC «1354 BNEQ 70$ ; branch if it was. 
08 AO 9 7FE 1355 TSTB AST$Q_10SB+4(RO) ; Was there a terminator at all? 
04 12 0801 1356 BNEQ 70$ 3; branch if yes 
| 
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CTERMRT = CTERM remote terminal protocol module =SEB-1984 03:09:1 AX/VMS Macro v04-00 Page 30 Ci 
v04-000 CTERM_QIODONE = Process a completed term 5-SEP-1984 05:14:4 RTPAD.SRCJCTERMRT.MAR; 1 (12) vO 
06 90 1357 MOVB #CTPSM_RD_INPFULL,- 
2B A3 ! 34 : CTPSB_RD FLAGS (RSS ; Set ‘input full’’ 
7 1360 ; Set up for write to net 
? 1561 ; 
r 4 $¢ 70$: 
046 =«C€€ 7 136 BBC #FLG$V_VAXHOST,=- 
97 0000' CF 09 1364 W°CTERM FLAG, 80$ : Branch if not VAX to VAX 
2 «26 A3 Hi OD 1365 75$:  MOVAB CTPS$B_PRO_MSGTYPE(R3),R2; Address of message 
OO0BF 1 OBia : $6 3 BRW CTERM_QIOBONE_EXIT 3; Exit back to common code 
0814 1 68 : Check for more data in typeahead. 
14 1369 ; 
0814 1370 80s: 
7E 50 7D 0814 1371 MOVQ Poe oe: 3; save 
OB6D ' CF 00 FB 0817 1 i CALLS #0,W*CHECK_MOREDATA ; get status 
04 50 FO O81C 137 INSV RO, #CTPS$V_RD_MOR_DATA,- 
28 A301 O81F 1374 #1,CTPSB_RD_FLAGS(R3) ; insert bit 
50 BE 7D O82 1375 mova = (SP) +, RO : restore 
—E6 11 3 ; 1376 BRB 75$ ; and go back to normal path 
O89? 1378 UNREAD _DONE : 3 message type = 5 
OOA9 =s«31 basi 1380 BRW CTERM_QIODONE_EXIT 3; Exit back to common code 
OBSa 1386 CLR_INPUT_DONE: 3 message type = 6 
O0A6 ‘31 tth9 1384 BRW CTERM_QIODONE_EXIT ; Exit back to common code 
O85p 1386 WRITE_DONE: 3 message type = 7 
082D 1387 
OO0000000'EF 07 beet 1388 DECL WRITEQIO : Clear write active 
OA €0 oB33 1396 BBS #CTPS$V_WR_STATUS,- 
03 2B AB 0835 1391 CTP$W_OR FLAGS(R11),10$ ; Continue if status requested. 
0098 = 31 ths 1336 BRW CTERM_QIODONE_EXIT ; Exit back to common code 
0838 1394 ; Fetch a WRITE COMPLETE packet to write back to net with 
tr 1395 ; 
08 1396 10s: 
50 D base 139 PUSHL R 3; Save current work buffer 
F7CO° 0 38 D 1398 BSBW Ay ; Get a buffer 
53 50 00 74 1399 MOVL RO,R 3; Save new buffer address 
50 8ED0 Ste 1209 POPL RO 3; Restore current work buffer 
52  26A3 YE ark 1006 MOVAB CTPS$B_PRO_MSGTYPE(R3),R2 ; Address of message 
51 06 3¢ re 1e07 MOVZWL #CTPS$C_WC"PROLEN,R1 ; Length of message 
26 AS «0(09-—s*O98B rh 1405 MOVZBW #PROSC_DATA, - 
51 1406 TP$B PRO_MSGTYPE(R3) ; Set foundation data message 
0 98 51 140 MOVZBW #CTPSC_MT-WRITE_COM,- 
2A A 53 1408 TP$B_ASGTYPE(R3) 3 set message type, zero flags 
8 “0 dO 5 1409 MOVL AST$Q_10SB+4(RO) ,- ie 
CA 5 1219 CTPS$W"WC_HORPOS (R3) ; Set horizontal and vertical position 
SA 141 > #eee STATUS Left out tee 
5A 1413; | 


Mei al 


CTERMRT 16-SEP-1984 02:09:1 
v04-000 CTERM_QIODONE = Process a completed term 5-SEP-1984 88; 4:4 
0076 «31 5A 1414 BRW CTERM_QIODONE_EXIT : 
3p 1416 READ_CHAR_DONE : ; 
00000000'EF 07 5 1418 DECL READQIO : 
52. 2c AB H 6 14 p NOVAB CTPSW_CH_PARAM(R11) ,R2 : 
F7ee" 8B 69 14 : BSBW GE TBUF : 
53 50 b0 86C 14 MOVL &0,R : 
50 8ED He 14 , POPL RO : 
OFFD 8F 8B 5g 14 : PUSHR #*M<RO,R2,R3,R4,R5, = 
876 14 R6,R7,RB,RI-RIOLRII> ~—sgs 
53 3¢ AS 9E 0876 1428 MOVAB CTP$W.CH PARAM(R3),R3 ss: 
59 Q0000000'EF 96 087A 1429 MOVAB CHAR BLOCK,R9 ; 
5A 04 AO 9E 881 1430 MOVAB AST$Q_IOSB(RO),R10 : 
F778" 30 Sbae 143¢ BSBW  CTSENSECHAR : 
OFFD 8F BA 0888 143 POPR #*M<RO,R2,R3,R4,R5, 
OB8C 1434 R6,R7,RB,RI,R1I0,R11> 
51 03 CO O88C 1436 ADDL #3,R1 : 
26 AS) «09)s«9BCOOBBF «1437 MOVZBW #PROSC_DATA, - 
0893 1438 CTP$B_PRO_MSGTYPE(R3)  ; 
2A a3. 0B.) sO9B:sC«0893—:1439 MOVZBW #CTPST_MT~CHAR, - 
0897 1440 CTP$B_ASGTYPE(R3) : 
52 26 a3 9E 0897 1444 MOVAB CTP$B_PRO_MSGTYPE(R3) ,R2 
0035 31 0898 1268 BRW CTERM_QIODONE_EXIT : 
O8B9E 1444 
O89 1445 CHAR_DONE : : 
00000000'EF 7 O89E 1447 DECL READQIO ; 
oo2zc 31 OBA4 1449 BRW CTERM_QIODONE_EXIT : 
O8A7 1451 CHECK_INP_DONE: : 
O8A7 1458 
50 oD OBA7 145 PUSHL RO : 
F754" 30 OBAD 1454 BSBW GE TBUF : 
53 50 DO OBAC 1455 MOVL _RO,R : 
50 8EDO OBAF 1456 POPL RO ; 
26 a3 09 «98 88 1438 MOVZBW #PROSC_DATA, - 
8B6 145 CTP$B_PRO_MSGTYPE(R3)  ; 
2A a3 «(0D)SO9B:s«0BBS6 C1460 MOVZBW #CTPSC_MT~INP cou _7 
A 1461 CTP$B_ASGTYPETR3) : 
52 26 A3 9E A 1468 MOVAB CTP$B_PRO_MSGTYPE(R3).R2 
C ‘ dO 146 MOVL CTP$W_IC_COUNT(R11),- 
CA C1 1464 CTP$W-IC~COUNT(R3 : 
51 04 9A O8C3 1465 MOVZBL #CTP$C_IC_PROLEN,R1 : 
4 €1 C6 1466 BBC #FLGSV VARHOST.- 
02 00000000 "EF CB 146 CTERM_FLAG, 10$ 
1 06 of 1468 INCL = RY. : 
0000 «31 D 1230 10$: BRW CTERM_QIODONE_EXIT : 


K 9 
= CTERM remote terminal protocol module 


; Set Length 


; also copy character 


AX/VMS Macro v04-00 
RTPAD.SRCJCTERMRT.MAR; 1 


Exit back to common code 
message type = 10 
Clear read active 
address of requested characteristics 
Save RO 
Get rl to write back to net 

u 


Set inp 
Restore 


722 this many??? 

address to stuff CHAR message data 
Characteristics block 

I0SB from sense mode 


Returns R1 as Length of fields 


; Plus 3 for msgtype, flags 
; Set foundation data message 
; Set message type 


; Address of message 


; Exit back to common code 
; message type = 11 


Clear read active 


; Exit back to common code 


message type = 12 

Save RO . 

Get buffer to write back to net 

Set input 

Restore 

Set foundation data (cterm) message 


Set message type 
; Address Sf message 


Copy data (3 bytes, really) 


Exit back to common code 


ctl 
vO 


50 
02 A2 


7 TA OMmoOm 


0 
1 
0 
5 
0 
5 
0 
E 


51 
60 00000000° 


F808 CF 00 


OF 
2A AO 
OE 


07 
2A AO 


00000000" EF 
06 


00000000 ' EF 


F6D8" 
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e terminal protocol module 16-SEP-1984 02:09:1 AX/VMS Macro v04-00 Page 3 
- Process : completed term : ae 7 0¢:07:) . 33; 


SB 


> 


oo Doc @® 
mo OWO 
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MESSAGE _END: 


DMOOOO0O0000 0000000 00000009 09090909 SINS 


NOMEN CO OO NOAU EWN 0 OD NOAU EWR $0 ODNOAU EWN QO VOONOAOU ES WH OWONOUS WN 
— 
oO 
wr 


MESSAGE _DONE : 


DOODOSOOSCOOSODOOOSOOSCO 
AAAI AIIM IIIT UII III EEE ERE ERR REPRE PE PRR PRP PPR 


POPPNMNNINN 2 2 2 SH SH OOOOOO 


: 
: 


-_| 


CT 


RTPAD.SRCJCTERMRT MAR; 1 


CTERM_QIODONE _EXIT: 


= 
7 


this point, should be set up as follows: 


; RO - Same as input to CTERM_QIODONE (points to main data block) ; 
; Ril = Length of message to write to net (minus_four bytes for header) (if R3 > 0) 
s Re - Address of message to write to net (if R3 > 0) 
3; RS = AST block for write to net (or 0) 
PUSHR #*M<R1,R2,R3> ; *** don't trust anybody 
BSBB = MESSAGE END : start up another Q10? 
POPR #*M<R1,R2,R3> 3 
MOVL R3,R0 3; Set return 
BEQL =-:108 
MOVW Ri,- 
CTPSW_MSGSIZE-CTPSB_PRO_MSGTYPE(R2) ; Set size 
ADDL #4, ; Size to write to net 
MOVAB LNKWRTDONE ,AST$L_STATE (RO) ; Set ast routine (next state) 
RSB ; Return to common path 


MOVZWL ASTSW_OFFSET(RO),R1 ; Fetch current offset 
ADDL3 RO,R1,R11 : 
ADDW3 #2,CTPS$W_MSGSIZE(R11),R1_; Add twe bytes for message size 
ADDW2 R1,AST$SW_OFFSET(RO) 3; Add to offset 
CMPW ASTS$SW_OFFSET(RO),- 
AST$W_BUFSIZ(RO) 3; Compare to size read 
BGEQ MESSAGE_DONE : Branch if done 
CALLS #0,W*CTERM_PROCMSG 3; process message 
RSB 3; Return 


CMPB #CTPSC_MT_VMSQ 


; Add base + offset 
10,- 
CTP$B_ASGTYPE (ROS 


Was it a VMS Qi0? 


BEQL 10$ ; branch if yes 
CMPB ss @CTPSC_MT_WRITE,- 
ait CTP$B_MSGTYPE (RO) ; Was it a write? e* 
DECL reaoele ; *** can this be cleaned up? 
BRB 15$ 
vas DECL  WRITEQIO 
"s«iBSBW =Ss« BUF FREE > Free this buffer 


; Must start up whole thing again for queued messages 


— 
o 
bad 


51 QOQOOOO'EF YE 
50 0000000" Ft oF 
1 C 

51 QOO00000°EF YE 
50 Q0000000'FF OF 
9 1c 

0081 +831 

61 06 

F7CO CF =600—Csd#FB 
0000172° D7 
00000171" % 


00000172" 


00000171°EF 94 


F68E’ 30 
60 O0000000'EF 9E 


OOOO'CF 9 
06 1 
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= CTERM remote terminal protocol module 1 mi tah 9 O¢: 
-SEP-1984 : 


09:1 AX/VMS Macro Vv04-00 Page 33 
CTERM_GQIODONE = Process a completed term 2:43 URIPAD SRE CTERMRT.MAR; 1 . (12) 
928 1 § MOVAB wer Teere R1 3; address 
9oF 1 REMQUE a@WRITEQ,R : fetch attempt 
2 : ! ? BVC 20$ ; Branch if not empty 
9 1 ¢ MOVAB READQIO,R1 ; address 
93F 1 REMQUE aREADA,RO : try other queue 
ae8 1534 BVC 0 ; Branch if not empty 
948 1535 SRW 0$ ; Exit 
948 1 $ 20$: 
948 15 INCL (R1) ; Interlock 
3e8 3 3 CALLS #0,W*CTERM_PROCMSG 3 process message 
Bae 1340 ; Decide if net needs to be ‘'turned back on"’ 
095 1348 DECL QUEVED_BUFS ; one less entry in queue now 
0958 154 TSTB READNETFLAG ; has reading from net stopped? 
4 1544 BEQL 30$ : branch if not 
096 re 
0960 1 re CMPL #MIN_ QUEUED_BUFS,=- 
0962 154 QUEVED_BUFS 3: hit lower Limit? 
0967 1548 BLSS 308 ; Branch if not yet, still much work to 
0969 1549 3 remaining in queues 
0969 1550 
0969 1551 CLRB READNETFLAG ; Clear flag 
O96F 1326 
O96F 1555 .IF DF DEBUG 
O96F 1554 movab neton,r0 3; *** Debug 
O96F 1555 bsbw log_ascic 3 ** Debug 
O96F 1556 .ENDC 
O96F 1557 SBW GE TBUF 3; Get buffer 
8858 1328 MOVAB LINKRECV,ASTSL_STATE(RO) ; Set ast address 
0979 1560 $Q10_S CHAN = LINKCHAN - ; Read Link again 
979 1561 FUNC = #10$_READVBLK - 
979 1206 10SB = AST$Q_IOSB(RO) - 
979 156 ASTADR = ASTRANDLER - 
0979 1564 ASTPRM = RO - 
0979 1565 P1 = ASTST_BUF(RO) - 
979 1308 P2 = #MAXMSG ; 
9A4 156 ONERROR QUIT 3; Quit if error occurs 
O9CC 1568 
O9CC 1569 30$: 
o9cc § 1570 3 , 
9cC 1571 ; Following test is here because a burst write can still 
44 1326 ; be in progress when a hangup occurs (e.g. LOGOUT/FULL) 
9CC 1574 TSTB © W*WAKEFLAG ; Should RTPAD be exiting? 
+31 1575 BEQL 40$ ; Branch if not 
92 1 A SWAKE_S ; Wake up main thread 
90D 1577 40$: 
90D 1 A RSB ; return 
9DE 157 
9DE 1580 


AAAMAAAAAAAAAAAOMAAAMAAOAQAAQAOMAQAO 
eed ae ed eed eed ee ed eed ee ee eed ee ed eed ee eed eed end eed ee edd ad ed ed ed ee 
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~$EP=1986 OS:14i07 EATPADSSRCSCTERRRT-MAR; 1 


-SBTTL CTERM_LNKWRTDONE = Write to Link has completed 
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-SBTTL CTERM_OUTBANDAST = Handle out of band ast 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


AST routine for all out of bands enabled. Writes to net message 
containing character typed. 


CALLING SEQUENCE: 
CALLS, CALLG 
INPUT PARAMETERS: 


PAPAS ASSOASAS Or 


4(AP) = Character typed to generate AST 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


OOooooooooooooooCoooooooo 


IMPLICIT OUTPUTS: 
Q10 done to net. 
COMPLETION CODES: 
NONE 
| 


SIDE EFFECTS: 
NONE 


-ENTRY CTERM_OUTBANDAST, “M<R2,R3> ; Save registers 


DPD DADE PAA Be Be BS ES AAI nrononononononn = Of 


BALM 9 OO NAVE WIN 9 OD NA UES WN 9 OD NAME WN OOD NAU EWN OWOONOU ES WO 


ed ed ed od Ss = 2 dd = = 8) 2 2 3 SS 2 2 2 2 3 2 8 8 Ss 2 2 as 


PDEA APAPAPAAAAAA AAA AAA AAAAAAAA AAA AAPAAAAAAAAAAO 


O9E 3 
+43 3; Check for discard output 
52 D4 (O9E CLRL = R2 : no discard flag 
51 00000107 '°EF 9E 9E MOVAB OUTBAND_SET,R1 3; Set oob block 
50 04 AC QA ODE MOVZBL R 3; Fetch byte 
1018 Al 50 €1 OOF BBC RO,008 DISCARD(R1),10$ ; check bi 
OF ASSUME CTPSM_OS_DISCARD £41 °; assume 
3s + OF 6 INCB Re ; Set to 1 
02 88 O09F 6 BISB  #FLGSM_CTRL_CY,- 
00009000"Er OF 6 CTERM_FLAG ; Set flushing flag 
0651 8F 3¢ oF 6 MOVZWL #SS$_CONTROLC,- 
0176'CF A : 1 W*FLOSH_STATUS : Set *C in status 
FSF7" 30 . 4 BSBW GE TBUF ; Fetch buffer 
09 9B OA 7 MOVZBW #PROSC_DATA,- 
26 A A 7 citar PRO_MSGTYPE(RO) ; Set protocol message type 
0 BO OA 7 MOVW #CTP$C_OB-PROLEN,- 
28 AO A 7 CTPSW_ASGSIZE (ROS ; Set message size 


C 10 
CTERMRT - CTERM remote terminal protocol module 16-SEP- 1986 Og: :09:1 AX/VMS Macro v04-00 cTt 
v04-000 CTERM.OUTBA NDAS - Handle out of band as -SEP-1984 214:4 RTPAD.SRCJICTERMRT.MAR; 1 Pst 
06 90 OA! 1677 MOVB #CTPS$C_MT_OUT_BAND,- 
2A a9 Al3 1678 CTP$B_MSGTYPETRO) ; Set message type 
2B AO 5 90 OA1S 1679 MOVB R2,CTP$B_OB_FLAGS(RO) ; set discard state 
2C AO 04 AC 90 a 1989 MOVB 4(AP),CTP$B_OB_CHAR(RO) ; Character typed 

1 07 AIE 16 : MOVZBL #CTPSC_OB_MSGLEN,R Message Length PSt 
52 26 AO 3 A2i 16 MOVAB CTP$B_PRO- MSCTYPECROD, R2° ; Address of data ik, 
F508" BA 5 19 2 BSBW WRITE_TO_RETX ; Write message to NET eal 
04 OA H 1686 RET R 


SS 


— 


CTERMRT 
v04-000 
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= Handle “0 out of band =SEP=1984 05:14:4 RTPAD.SRCICTERMRT.MAR; 1 ( 
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-SBTTL CTERM_CTRLO_AST = Handle “0 out of band ast 


FUNCTIONAL DESCRIPTION: 
AST routine for all “O's typed. 
| 


> 
+ 


CALLING SEQUENCE: 
CALLS, CALLG 

INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 

Q10 done to net. 
COMPLETION CODES: 

NONE 


SIDE EFFECTS: 
NONE 


Se Se Ge Oe Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Fe Se Ge Ge Se Ge Ge 


POIPOIPIPIPPIDPPIPORSPPIPPIAPININININININININIPINIPINIPoPoNnrnnrnnn 


> PPrPrrPrrrrrrrrrrrr rrr rrrrrrrrrrr>rrrrrrrrrrrrr> 
WAAWIWIWIAIWIWINN 
WINANS POA SMVOMMDD OOOOOOOOOOOOOODODOOOODOVDODODOOVOOOOO0O0000 


CDOOCOOCOCOSOSCOCSOSCOSCOSCOOOOOOSOOSOOSOOSOOOOSOSOOOOO OOOO OOOOOOOSOOOOOOoO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
000C ENTRY CTERM_CTRLO_AST, “M<R2,R3> ; Save registers 
F5D2" 30 BSBW GE TBUF ; Fetch buffer 
09 «98 MOVZBW #PROSC_DATA,- 
26 AO CTP$B_PRO_MSGTYPE(RO) ; Set protocol message type 
02 60 MOVW #CTPSC_DS_PROLEN,- 
28 AO CTPSW_ASGSIZE (ROS ; Set message size 
09 890 MOVB #CTPSC_MT_DIS_STATE,- 
A AO 0 CTP$B_ASGTYPETRO) ; Set message type 
B ry 94 1 CLRB At et DS_FLAGS(RO) ; Assume discard output off now 
02 £0 : BBS AF LGSU_CTRL 0, - a 
03 00000000" EF A CTERM_FLAG, TO$ ; Branch if state was ‘‘on 
A 4 ASSUME CTPSM~DS_ DISCARD EQ 1 ; assume 
28 AO (96 e 5 108 INCB CTP$B_DS_FLAGS(RO) ; Set to 1 
046 «8 vt $ XORB2 #FLGSM_CTRL_O,- 
00000000' EF nee 8 CTERM_FLAG : Flop bit 
51 06 9A OA4F 179 MOVZBL #CTPSC_DS_MSGLEN,R1 ; Message length 
52. 26 A 35 A 174 MOVAB CTP$B_PRO-MSGTYPE(RO),R2; Address of data 
FSA?" " 1086 WRITE-TO_RETX ; Write message to NET 
04 OAS9 1744 RET 


eef 


—E 10 
- CTERM remote terminal protocol module | 
CTERM_CTRLO_LAST = Handle “O out of band “SE 


OASA 1745 


1386 oe: 9:1 AX/VMS Macro V04-00 Page 78 
1984 14:4 RTPAD.SRCJCTERMRT.MAR; 1 (17) 


2» 
cz 
z 
“7 
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DODO OCOOOOOOOOOOOOOOOOOOO 
PPPrrrrrrrrrrrrrrrrrrr>r,r>,r 
PV PUPU DVS SUSU SV SVS VSS VS OSS 
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- Unsolicited data mailb g- tr =13 4 0g: 09:3 YRIPAD Se CTERMRT.MAR; 1 


-SBTTL CTERM_UNSDATMBX = Unsolicited data mailbox 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 
Called as an AST routine 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
UNSDAT 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


~Entry CTERM_UNSDATMBX, “M<R2,R3> 


MOVAB UNSDAT,RO ; Address of data block 
CMPW = CTP$W_BR_MSGCODE(RO), - 
ons68_ TRAUNSOLIC ; Unsolicited data? 


BNEQ ; branch if no 
MOVZWL #CTPSC_IS_MSGLEN,R1 ; Length 
MOVAB CT_UNSBAT_MSG,R2 3 message 
108 BRB 908 ; Continue 
CMPW CTP$W_BR_ MSGCODE(RO), - 
#SG$_ TRAHANGUP 3 Hangup? 
BNEQ 20 ; branch if no 
MOVZWL #UNBIND RSGLENRt ; Length 
MOVAB UNBIND_ASG,R 3 message 
MOVW § #UNBINDSC_OISCONNECT,- 
“UNBIND_ ; Set reason as terminal disconnect 
20$ BRB 908 ; Continue 
CMPW CTP$W_BR_MSGCODE(RO), - 
#MSG$_TRABRDCST ; Broadcast to mailbox? 
BNEQ 110$ ; nope, unknown message type, ignore it 
MOVZBW #PROSC_DATA,- 
CTP$B_PRO_MSGTYPE(RO) =; set size, zero flags 
MOVB #CTPSC_MT-VMS_BRDCST,- 
CTPS$B_ASGTYPETRO) ; Set messsage type 


CLRW = CTPSW7BR_FLAGS(RO) : clear flags 


CTERMRT =~ CTERM remote terminal protocol module i 1 138% 9: 9: \3 YAnl VMS Macro V04-00 Page 4 
v04-000 CTERM_UNSDATMBX = Unsolicited data ma -SEP-1984 4:4 RTPAD.SRCJCTERMRT.MAR; 1 (18) 
51 41Aa0 3 ASF 1 MOVZWL CTPSW_BR_MSGLEN(RO),R1 ; broadcast message lengt 
1 1D cb AA3 1 ¢ ADDL #CTP$T _BR MSGTXT=CTPS$B PRO Py YPE,R1 ; tength gth net write 
4 A AA6 1 § SUBW #CTP$B “MSGTYPE=CTPS$B_ PRO at i - 
28 A 1 AAS 1 W_MSGSIZE(RO)~ ; te of this message less overhead 
5 0 v0 | ! 8 MOVL RO,R2 3 sive ess of buffer 
AAE 1810 ; Send message to net 
AAE 1812 908: 
60 C6‘AF 9E OAA 1 i MOVAB Befaree UNSMSGDONE, - 
AB2 1814 STATE(RO) set ast address 
36 6 A2 9E AB 1815 MOVAB OS agh- PRO oes Ra’ ; message data 
53 00000000 ' EF 3 AB 1 18 MOVAB ASTHARDLER R ; AST dispatcher 
F540" 3 ABD 181 BSBW  WRITE_TO_NET : write to net 
RD TE os, 
C6'AF 00 FB OQAC1 1820 ; CALLS #0,B*CTERM_UNSMSGDONE ; call ast routine manually 
04 BAe? 36) RET 3; return 


CT 
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v04-000 box message done "Org e en o8e 88 4:4 RTPAD.SRCJCTERMRT.MAR; 1 . (19) 


-SBTTL CTERM_UNSMSGDONE = Mailbox message done 


oe 
mee 
a 3 
z> 
a3 
— 
— 


CTERM remot 
CTERM "UNSMSGD 


AC6 
AC 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
NONE 


OOOOCCCCCOO 
>>rrrrrr>,r 
o 


POADAQAAAOAAIAAAAAAAAAOOOAAOAAAOAOAOAONO 
DOOAAAAAA AAA AA AAAS AAA AAA AAAA AO 


PERSE EWN NINIIononononond 


AUE WN OS OONAUES WN 0 OD NOAUE WN OOO NAU EWN OOONOUS 


QA INPUT PARAMETERS: 
pA NONE 

* IMPLICIT INPUTS: 
oA NONE 

OA OUTPUT PARAMETERS: 
* NONE 

OA IMPLICIT OUTPUTS: 
- NONE 

OA COMPLETION CODES: 
OA NONE 

QA 

OA 


SIDE EFFECTS: 
NONE 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Ge Se Se Se Se Ge Se Ge Se 


RM = 
= CTP$W_BR_MSGCODE(RO),- 

B = #MAXMSG-CTP$W_BR _MSGCODE ; size 
ONERROR QU QUIT 


84 
84 
84 
84 

OA 85 

OA 85 

OA 852 ;-- 

OA 85 

0000 BA 8 CTERM_UNSMSGDONE:: .WORD 0 
50  OO000000'EF 9E OAC 85 MOVAB sticks Po 3; Address of block 
60 88 AF 9E 85 MOVAB CTERM ory tt 2 

85 AST SL. “STATE (RO) 3; Set ast address 
85 $Q10_S CHA = TERMMBXCHAN,- 
86 UNC = #108 ot pea - 
86 ASTADR = THANDLER 
86 AST 
86 
86 
86 
86 


—$—$—$——_—__— - - ~4 


| 
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CTERMRT - CTERM remote terminal protocol module 16-SEP-1984 :09:1 AX/VMS Macro V04-00 Pa & 
v04- CTERM_CTRL_CY = Control C or Control Y mi aets 1 86:92) RTPAD.SRCJCTERMRT.MAR; 1 = (38) 
43 6 ~SBTTL CTERM_CTRL_CY = Control C or Control Y | 
B56 1870 : +4 
B 7 
: f FUNCTIONAL DESCRIPTION: 
: f Set up state so that internal queues are flushed in response to “C or “Y. 
: CALLING SEQUENCE: 
: 4 CALLS #0,CTERM_CTRL_CY 
4 8 INPUT PARAMETERS: 
7: AP = pointer to Control ast block 
0B 8 IMPLICIT INPUTS: 
0B 8 NONE 
0B 8 
0B 8 OUTPUT PARAMETERS: 
8 NONE 


IMPLICIT OUTPUTS: 


CTERM_FLAG 
FLUSH-STATUS 


COMPLETION CODES: 
NONE 


-Entry CTERM_CTRL_CY, 0 


BISB  #FLGSM_CTRL_CY,- 
CTERM_FLAG 3 Set flushing flag 


: See if “C or “Y 
CMPW 4 (AP) ,AOSM_CTRLCAST : 


POPOMIPONPIPUNIPONONoPoNoRSNONOND 


DEO BD NN NIN 078 79 FF BOD CODE PAA AA AA AA AA AA AAPA A AAA AA AAA AAAA AA 


02 
00000000" EF 


0100 8F 04 AC BI check 
0 branch if “C 


ee ee a ee ee ee ae ee ee ee a ed dd 
WWWOOOOOOOWOO0O000000 00000 0000009 00 09 09 09 00 09 09 09 09 00 09 09 09 09 C0 C9 C0 CD 0D CD CD CD CD CD CODCOD CODCOD CD CD 


RMN) 2 2 3 3 3 3 BOO OOOO 00000000000 


FW 9 OD NA NE WIN | OOD NAME WIN OOD NAME WIN SO OD NAU EW OWONAUES W000 


SSSSSSOGSSS OOS HOOD OOO OO OOOO DS ODO DOoS 


. BEQL ; 
0611 8F 3¢ MOVZWL #SS$_CONTROLY,- 
0176'CF w*FLOSH_STATUS ; Set “Y 
50 19 9A MOVZBL #TTYS$C_CTRLY,RO : 

OA 11 4 sn BRB 208 : skip 
0651 8F 3C 0B4 "  MOVZWL = #SS$_CONTROLC,- 
0176'CF 4 W*FLOSH_STATUS ; Set *C 
50 03 9A 4 ‘ie MOVZBL #TTY$C_CTRLC,RO ; 
51 00000107" EF 9 4 "  MOVAB OUTBAND SET RI ; Set oob block 
00 1C Al 50 € 3 ‘ie BBCC  R0,00B_ECHO(R1) , 308 : clear bit #** testing (ABORT) 


| 
| 
| 
| 
| 
| 
| 
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CTERMRT - CTERM remote terminal protocol a 16-SEP-1984 :09:1 AX/VMS Macro V04-00 Page 43 CT 
v04-000 CTERM_CTRL_CY = Control C or Control Y g- SE 1 382 9g: 973] : RTPAD.SRCJCTERMRT.MAR; 1 ° (20) vo 
51 Opogt er" tr 4 59 1925 MOVAB ° TBAND_NEW,R1 ; Set oob block 
00 1C Al 50 € 6 19 Pr BBCC ,0OB_ECHO(R1) ,40$ : clear bit #** testing (ABORT) 
+ DD Be 13 8 PUSHL RO 3; push character 
FE76 CF 1 FB 6 19 CALLS #1,W*CTERM_OUTBANDAST 
04 OB6C 1930 RET 
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CTERMRT TERM remote terminal protocol module 16-SEP-1984 AX/VMS Macro v04-00 Pp 44 CT 
v04-000 CHECK_MOREDATA = Check for more data in 35-SEP-1984 2 89:92 RTPAD.SRCIJCTERMRT.MAR; 1 O9P (31) vo 
94 19 § -SBTTL CHECK_MOREDATA = Check for more data in typeahead 
BOD 1934 : 
44 19 5 ; FUNCTIONAL DESCRIPTION: 
+4 19 : ; Sense state of typeahead buffer, used in non-VAX host case 
BoD 1939 ; CALLING SEQUENCE: 
B6D 1941 : CALLS #0,CHECK_MOREDATA 
6D 1368 > OUTPUT: 
6D 1944 ; RO = 1 if more data in typeahead 
poe. 1322 ; RO = 0 if not 
0B6D 1909 > COMPLETION CODES: 
OB6D 1948 ; NONE 
OB6D 1949 ; 
Sb fa3y 
0004 ogee 1326 CHECK_MOREDATA: .WORD “M<R2> 
Zs mm 74 W3ee MOVAQ =-(SP),R2 ; 8 byte buffer 
87 1956 $al0w_s CHAN = READCHAN, - 
0B72 1958 FUNC = #ios_ SENSEMODE! 108M, TTPEAHDCNT, - 3: function code 
0B72 1959 pi = (R2)~ 
04 50 €9 0893 1960 BLBC RO,20$ 3; branch if error 

62 «=B5 344 1961 TSTW (RO) 3; test for non zero coun 

02 12 teas 1996 208 BNEQ 30$ 3: exit with lbs in ro if _— in typeahead 

50 D4 089A bY ¢3 pnt CLRL RO ; clear ‘‘data in typeahead"’ 

04 OB9C 1966° — RET : return 
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Vv04= UNBIND RECEIVED = unbind message receive 5-SEP-1984 05:14:4 RTPAD.SRCJCTERMRT.MAR; 1 (22) 
9D 1968 -SBTTL UNBIND_RECEIVED = unbind message received, check it out 
30 1976 
344 1371 3; FUNCTIONAL DESCRIPTION: 
3B 1998 3 HOST has requested UNBIND, give user reasonable exit message 
dsp 1975 ; CALLING SEQUENCE: 
9D 1376 ; 
9D 1977 ; BSBW UNBIND_RECEIVED 
9D 1328 : 
9D 1979 ; INPUT: 
9D 1980 ; RO - CTP packet 
0B90 13) 3 
OB9D 19 § ; COMPLETION CODES: 
0B9D 133 : NONE 
OB9D 1984 ; 
OB9D 1985 ;-- 
0B9D 1386 
OB9D 1987 UNBIND_RECEIVED: 
0B9D 1988 
52 27 a0 B0 mere bs + MOVW CTPS$B_PRO_FILL(RO) ,R2 ; fetch reason code 
52 03 B1 OBA1 1991 CMPW #UNBINDSC_USER,R2 ; logout? 
25 12 OBA4 1936 BNEQ 10$ 3; branch if no 
OBA6 199 QUIT #SS$_NORMAL ; yes, exit 
OBCB 1994 10S: 
52 04 861 OBCB 1995 CMPW #UNBINDSC_DISCONNECT,R2 3 hengup 
29 = 12 43 1996 BNEQ 20$ 3; branch if no 
0BD0 1997 QUIT #SS$_HANGUP 3 yes, exit 
OBF9 1998 20$: 
52 07 81 OBF9 1999 CMPW #UNBIND$C_PROTERR,R2 ; protocol error? 
29. «12 «OBFC 2000 BNEQ ; branch if no 
pare 001 QUIT #REMS_PROTERR ; yes, exit 
0c One 30$: i 
0c27 200 QUIT #SS$_LINKDISCON 3; quit 
05 0C50 2004 RSB 
0c51 2005 
0C51 2006 .END 


ron 8 


w$EP=1986 OS:tara? ERTPADSSRCICTENARTOMAR; 1 
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CTERMRT 
“ymbol table 
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ee) ed eee auth eel eel, ae al cee ae ae eel cee OG eeeaevaerNmac”ooocnood00ecaeaeaaacacocacocaacaacaa&cac 
ot + + 3 $$ = tt tt tt CTAANAAABAOMES SSS SSS SS BBBMNMN BOIZMYVBIEMMNMNYVNNNM 
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CTERMRT - CTERM remote terminal protocol module 16-SEP-1984 9:1 AX/VMS Macro v04-00 Page 47 ct 
Symbol table ° ety 7 88 09:13 ERIPAD. SRe CTERMRT.MAR; 1 . (22) v0 
CTPSV_SR_TRMECHO IOSM_ESCAPE 2 § 4 $ 
CTPSV_WR_BEGIN IOSM_EXTEND = 

CTPSV_WR_DISCARD 1O$SM_FCODE = z 
CTPSV_WR_END 8 1O$M_ INCLUDE = 8 
CTP$V"WR-LOCK 1O$M_NEWL INE = 4 
CTPSV_WR_NEWL INE 10$M_NOECHO s 4 
CTPSV_WR_POSTF IX IOSM_NOFILTR z 8 
CTPSV—WR-PREF IX 0 6 1O$M—NOF ORMAT = 

CTPSV_WR_STATUS 0 4 A 10$M_OUTBAND = 0000040 

CTP$V_WR- TRANSPARENT 00000 1O$M_PURGE = 000 800 
CTP$W_BR_FLAGS 0000028 I1OSM_REFRESH = 000 0 
CTP$W_BR_MSGCODE $08 D IOSM_TIMED = 8 8 3 
CTP$W_BR_MSGLEN 1 10$M_TRMNOECHO = 1 
CTPS$W_CH_PARAM 000002C I10$M_TT_ABOR = 00001000 
CTPSW_IC_COUNT 0000002C 10$M_TYPEAHDCNT = 4444 9 
CTPSwW_MSGSIZE 000000 3 10$V_ TIMED = 444 
CTPSW_RO_TERM_POS 000000 10$_READPROMPT = 00000037 
CTPSW_SR2_ALTECHSIZE 0000003A 10$_READVBLK = 00000031 
CTPS$W_SR2_EDITFLA 0000003E 10$_SENSEMODE = 00000027 
CTPS$W_SR2_FILLCHAR 00000040 10$_SETMODE = 00000023 
CTP$W_SR2_PICSTRSIZE 0000003C¢ 10$_TTYREADPALL = 00000038 
CTP$W_SR_END_DATA 00000030 10$_WRITEVBLK = 00000030 
CTP$W_SR_END_PRMT 00000034 LEGALMSG 00000187 0 
CTP$W_SR_MAX_LEN 4 4 6h LIBSSIGNAL aeeneeee = X 0 
CTPSW_SR_STR_DISP 00000036 LINKCHAN eeeeenee =X 8 03 
CTPS$W_SR_ TIMEOUT 00000032 LINKRECV eeeeeere xX 03 
CTPSW_WC-HORPOS 0000002¢ LNKWRTDONE aeeeeeee§ X 03 
CTP$W_ WR FLAGS 00000028 LOG_ADDR 000005C1 R 02 
CTSENSECRAR tererere LOG" BUF 000001A7 R 02 
CT_BIND_ACC_MSG 0000007F MAXASG Q000041A 
CT_BIND_MSGCEN 00000011 MAXREAD 00000183 R 02 
CT~CHAR_MSG eeetenee MAXSENDMSG 0000017F R 02 
CT_INIT_CHAR 00000047 MAX_QUEUED_BUFS = 00000003 
CT_INIT_CHAR_MSGLEN 0000000E MESSAGE _DORE 00000908 R 03 
CT_INIT_MSG 00000000 R SSAG eee ed R 03 
CT_INIT_MSGLEN = 0000001F MIN_QUEDED_BUFS = 00000001 
CT"UNSDAT_MSG 00000053 MSGS_TRMBROCST = 00000053 
CT_VMSQ10_DONE reaereree MSG$_TRMHANGUP = 00000006 
E RCV 000000F 6 MSG$- TRMUNSOLIC = 00000001 
FLGSM_CTRL_CY = 00000002 NOT_BATA 00000000 03 
FLGSM_CTRL_O = 00000004 00B_ABORT = 00000014 
FLGSV_CTERA = 00000000 OOB_DISCARD = 00000018 
FLGSV_CTRL_CY = 00000001 00B_ECHO = 0000001C 
FLG$V_CTRL_O = tit § OOB_EXCLUDE = Boop SoC 
LG$V~LOGGING = 0 00B_ INCLUDE = 0000000C 
FLGSV_VAXHOST = 900900004 OOB LEN = 00000020 

FLUSH STATUS 0000176 OUTBANDABO eeeereee 03 
GE TBUF teeeeeee OUTBANDE XC eReeeeeee 03 
INDFLAG eertenee OUTBANDINC eerteene 03 
INIT_CHAR_STRT 0 608 45 R OUTBAND_NEW 00000127 85 
INIT_DONE OUTBAND’ SET 00000107 R 0 
INIT_MSG 0000165 PROSC_ACCEPT = 00000004 

INIT_RCV 3088 3 —DATA = a 
1OSM_BREAK THRU = Bp 0 PROSC _UNBIND = 00000002 
JOSATETRLCASS = $600010 QUEUED BUFS 90000172 R02 
10$M- CVTLOW = §0090190 RD_STAT_END Matte $5 


Sikes 
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Symboi table 984 RTPAD.SRCJCTERMRT.MAR; 1 (22) 
RD_STAT_TBL 00000147 R UNBINDSC_USER s 03 
READCHAN eeereree x UNBIND_MSG § 2 02 
READNETFLAG 00000171 R UNBIND_MSGLEN 
READQ teeeeeee 8 6X UNBIND_RECEIVED DR 3 
READQIO ekketker x UNBIND_WHY BB oD R ¢ 
READ_CHAR_DONE 00000850 R UNREAD _DONE e7R 
READ _CHAR_MSG 00000500 R UNREAD_MSG QOOOSFS R 3 
RECORD QUIT eeeeeeee = X UNREAD-RCV 00000E0 R 03 
REM$_BADMSG teenenee =X UNSDAT aeeeeeee =X 03 
REMS_INTERR eeeeeere KX 0 VMSQ10_DONE 000754 R 3 
REMS_PROTERR teneeeee Xo 0 VMSQ10_ MSG 000159 R 3 
REMS_QIOERR kekereek x 0 VMS_INBREAD ReKKKEE x ; 
REMS_UNKMSG tereeeee =X 0 WAKEFLAG teeeeeee =X 
RETSTATUS ekkekeee x 0 WRITECHAN RRERKKEE x 03 
SAVE _WR_FLAGS 0000017B R Bs WRITEQ weeneeee KX 03 
SAVE WR” POSTFIX 0000017A R 0 WRITEQIO RRKRKRKE x 03 
$S$_ABORT = aids C WRITE_DONE 0000082D R 03 
SS$_BADESCAPE = 0000 ¢ WRITE_MSG 00000449 R 03 
SS$_CONTROLC = 44449 1 WRITE_TO_NET Kekehene x 03 
SS$_CONTROLY = 00000611 WRITE_TO_NETX RRRKRHKE x 03 
SS$_DATAOVERUN = 00000838 WRITE-TO_NET_SYNC teeeeeee KX 03 
SS$_EXQUOTA = 0000001C 
SS$_HANGUP = Bonggece 
Ss$_ Oa | ae = QO0020EC 
MAL = 00000001 
Ss$_ OP INCOMPL = 000002D4 
ARITY = QOOOO1F4 
ss$_ _PARTESCAPE = QOOQOOIFC 
S$" TIMEOU = ee TT 8 
START_READ_DONE 0000075D R 03 
START_READ_MSG 00000210 R 03 
SYSSCANCEL keereeee GX 03 
SYSSOCLAST keekeree GX 03 
SYS$Q10 kkekteee GX 03 
SYS$Q10W kkaekeere GX iH 
SYSSSETAST ketareee GX 0 
SYSSWAKE teeakenee GX 03 
TERMMBX CHAN teetrene 03 
TERMSET OOOOOODF R 02 
TRMSK_EM_ A447 id = 44 4 
TRMSV_TM_NOEDIT = 0000000F 
T V_TM_R_JUST = $ 4448 
TRMS_ALTECASTR = 00009 
TRMS_EDITMODE = 9 9 o4 
TRM$_FILLCHR = 7 
TRMS_INIOFFSET = 0000 8 
TRMS"INISTRNG = 9 
TRMS_MODIFIER = 0 
TRMS_ PICSTRNG = 00 06 
TRM$_PROMP = 4 
TRMS_TERA = 
TRMS_ TIME ~ 
TTYSC_CTRLC = 
TTYSC_CTRLY = 
TTY$SC_ESCAPE = 1B 
UNBIND$C_DISCONNECT = * 
UNBIND$C~ _PROTERR = 0 7 
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CTERMRT - CTERM remote terminal protocol module i ot St bs be: 9:1 AX/VMS Ma 
Psect synopsis “SEP=1984 05:14:4 RTPAD.SRC 
foes aesevsoe woeeenosd 
! ;_Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
AB 00000000 “( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL old NOEXE 
ABSS$ Bop ko eee ( 9.) 01 ¢ 1.) NOPIC USR CON ABS LCL N EXE 
RTPAD ss eas ( 1477.) 8 ( ¢°) NOPIC USR CON REL LCL NOSHR EXE 
RTPAD 00000C51 <¢ 3153.) ( 35.) NOPIC USR CON REL LCL NOSHR- EXE 
poses ec e nse eee meen ona eens 
iP Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 £880: 08-28 00:00:01.46 
Command processing 153 00:00:00.5 ss Be 
Pass 1 606 00:00:17.44 0:01:08.82 
Symbol table sort 0 00:00:02.76 00:00:07.46 
Pass 2 331 88 80:06°%5 00:00:18.10 
Symbol table output 36 00:00:00.19 00:00:00.91 
Psect synopsis output 3 00:00:00.02 00:00:00.01 
trese=reterence output Bp: 88 200-2 00:00:00.00 
Assembler run totals 1159 00:00:25.30 00:01:41.74 
The working set Limit was 2400 pages. 
147280 bytes (288 pages) of virtual memory were used to buffer the intermediate code. 


There were 140 pages of symbol table space allocated to hold 2404 non-local and 118 local symbols. 


2006 source Lines were read in Pass produc ng 38 object records in Pass 2. 
40 pages of virtual memory were used to define 39 macros. 


weeeeoemwe eee e eee eoeooeon} 


Macro Library name 


-$255$DUA28: tb Fgh -MLB;1 6 
$255$DUA28: 1s 
SYSLIBJSTARLET.MLB; 2 if 


~$588 SDUADB: 
TOTALS (all Libraries) 


2541 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CTERMRT/OBJ=OBJ$:CTERMRT MSRC$:CTERMRT/UPDATE=(ENHS$:CTERMRT) +EXECMLS/LIB+LIB$:RTPAD/LIB 


r 
C 


NORD 


o V04-00 
TERMRT.MAR; 1 


NOWRT NOVEC BYTE 


WRT NO 
NOWRT NOVEC BYTE 


TAL EQUIPMENT CORPORAT 
IDENTIAL AND PROPRIETA 


0333 Vax7vms v4-0_ CONF 


